NORTHERN BYTES 




GREETINGS' Welcome to yet another issue of NORTHERN 
EYTES. We have a couple of "near announcements" to cover this 

m ° nth What's a "near announcement?" It means I'm "jumping the gun" 
a bit to let you know about some of the things we are working on for 
your benefit. These announcements are of things not yet f»nah*ed, 
but that seem too important to keep to ourselves until the last 
mLte .Support for the TRS-80 is not dead - in fact, there may be 
mo'e of >t around now than ever before' _.„._»,.. * 

Near announcement #1! NORTHERN BYTES and The Alternate 
Source are working on putting up an international bul etin board for 
TRS-SO users, to be available via a major packet-switching ne work 
here in the U.S. (no. probably not the one you're thinking of), and 
i,df,-ectly accessible (with added surcharges, ^^W"* 
other packet networks both here and in other countries. Then e s 
even an Son -toll-free" access number, but it's no bargain, since it 
r»rrie- an lie per hour access surcharge. If we do manage to get 
This going, you will have to have a VISA or MasterCard account to 
whi-h we can bill your usage (we're open to other suggestions'). We 
hope to be able to make access less expensive than by "^able 
means (such as the information utilities we're all familiar with). At 
this point, nothing's been finalised - in fact, we're still in the 
nmal talking stages. If you'd really like V^^S 
this, why not drop us a line and let us know if you'd be willing to 
support such a system (provided the costs are reasonable)' If 
you're really anxious to see something like this, drop us a self 
addressed stamped envelope (outside the U.S., forget the stamp but 
enclose an International Reply Coupon or a Canadian quarter) and 
we will mail you full details if and when we are ready to implement 

thiS TeaTannouncement #2t Here's one for NEWDOS/80 users - 
we will soon be releasing the most significant NEWDOS/80 
enhancement package ever. Space does not permit me to go into all 
the details here, but the feature I have most appreciated about this 
package is that it has a SUPER Automatic Disk Format 
Determination routine that just about lets you forget about 
resetting PDRIVEs to read different disk formats. It will even 
read a 40 track disk on an 80 track drive, **•**£-£** d, £ " ' 
double-sided drive without manually resetting PDRIVEs. It will 
even read from and wTIteto disks formatted by^ an "alien" DOS such 
as DOSPLUS, LDOS, MULTIDOS, or TRSDOS fc.x (it will not 
automatically read a TRSDOS 1.3 disk, but the *J^^ d °£ 
resetting the PDRIVE to copy files to and from a TRSDOS 1.3 disk 
is still available). This little goodie (which has saved me 
considerable time in the preparation of NORTHERN BYTES) is just 
ONE of a whole package of enhancements by Mr. Alan Johnstone. At 
the present time there are still a few bugs to be worked out, but 
when we release the package the enhancement programs will be in 
the public domain, albeit possibly priced a little higher than our 
normal series of PD disks (we may include some sort of user « 
manual which will help justify the increased cost). „ 

Not-so-near announcement #3! "The end of NORTHERN 
BYTE'?'"' I'd hate to have to discontinue it, but I've had a problem. 
You see, as I've mentioned before, NORTHERN BYTES is basically a 
one-person operation, and this winter I have been literally swamped 
with mail (much of it article submissions, for which I thank you all). 
Trouble is, I simply don't have time to go through all the mail and 
process it properly. Sometimes it seems like I am spending all my 
waking hours on NORTHERN BYTES, and I've haven't had »"£*""• 
to do much of anything else - including work on the Public Domain 
Library disks, or even any programming. This tends to take the fun 
out of it' And if we get the bulletin board system mentioned above 
up and running, that will tie up a couple more hours of my time each 

d * y ' Up to this point, I have been doing NORTHERN BYTES more 
for fun than profit (maybe it would be more accurate to say "for the 
fun of it" and let it go at that!). But what started out as a one or 
two hour a day project has expanded to take considerably more time. 
So, it is imperative that some changes be made, 



Volume 6 Number 3 

Here's chanoe #i: Effective immediately, HARDCOPY 
ARTICLE SU BMISSION S W ILL NOT BE ACCEPTED - PERIOD' If 
*Z .send an article submission, put both the mUM «* "V 



nroarams on disk or tape, or send them via MCI Mail. X-«.r. to the 
KrShould also be sent on disk. With disks widely avaUable _for 
under SI. 50, this policy shouldn't hurt anyone. Besides, most, of us 
have a few disks that were rejected during formatting - why not try 
formatting one of those single density and copying your article to 
that' I am not asking you to use a brand-new, quad-density 
certified disk - any old, used disk will do so long as it keeps me 
from having to re-type your article or letter' SuperScripsit users, 
m FAfiE «ave vour text files in ASCII format' 

SaSS I°»* ™ *° njntinoe NORTHERN BYTES, we need 
to generate some money. Why? So we can make this a ™™-}*™- 
one person operation! Unfortunately, most people like to get ml 
for the work they do (actually. I don't mind it myself) and right now 
we aren't generating much money! So here is "*"£^» B £££ 
do! Tell all your TRS-80 using friends about NORTHERN BYTES. 
Tell tr*m it is only S2.00 per issue and that we will t^t^ ™ 
or MasterCard number (and expiration date) and send them each new 
issue as it appears, and bill them *2.O0. No big investment, no 
paying a bunch of money up front and then getting stuck when the 
publication folds. We bill only for the issues we've sent, aj^r. we 
mail them. On top of that, we've been around long enough that you 
^ow we"re not lust a fly-by-n.ght operation. If you belong to a 
TOS-80 users gro^., PLEASE tell the members of your group about 
us' We don't advertise in any of the TRS-80 magaiines (no big ad 
bucks to spend, especially at the rates they get!) sc i there a^Mots 
of people who never heard of us. If you like NORTHERN BYTES, 

help spread the word! 

By the way, I'm not trying to scare anyone, but I've seer .many 

magaiines that have jus* '°W*° with no * dvance "JET* i-.winn 
COMPUTING (formerly 80-U.S.) disappeared very suddenly, leaving 
many people (including the folks at Logical Systems, Inc.) ho ding 
the bag' I don't want to do that, so I'm letting you know _that I m 
very seriously thinking about discontinuing NORTHERN BYTES in 
order to give you a chance to help change my mind. You may have 
heard of the "Newsletter Editor Burnout" syndrome. Sometimes it s 
bTought on by lack of appreciation (which is not th. problem here!), 
and sometime, it's brought on by the "«<- sle "!LS™° '"^ 
overworked (ahem!). I really do hate to make NORTHERN BYTES 
more commercial, but unfortunately, unless we can afford to get 
some help, your editor's burnout may be terminal. The thing that 
would be most effective in saving this publication would be if a 
whole bunch of people suddenly send in their card numbers. 

One point to make here - even though The Alternate Source 
does the actual shipping of and billing for NORTHERN BYTES, I 
maintain the mailing list in Sault Ste. Marie. So, send your ^card 
number and expiration date to the return address for NORTHERN 
BYTES shown on the back page of this newsletter. 

I suppose that eventually, a bulletin board type system could 
become a replacement vehicle for the type of news provided in 
NORTHERN BYTES, but I would hate to see that happen, because 
many users would find it less convenient (not to mention more 
expensive') to get their TRS-80 related news that way. I prefer to 
see the BBS and NORTHERN BYTES complementing each other. But 
a BBS is generally self-maintaining, in that when a user posts a 
message, the SYSOP need only read it, determine if its contents are 
suitable for the BBS, and delete it if necessary. Articles sent to 
NORTHERN BYTES usually require LOTS of editing to maintain a 
uniform format. For example, you may have noticed^ that most 
assembly-language source code listings that appear in NORTHERN 
BYTES are in a more-or-less standard format. Well, they very 
seldom come to us in that format' Similarly, text files usually need 
to be massaged to obtain a more or less standard format and 
pleasing appearance. Then everything needs to be checked for 
spelling and printed out (a very slow process - if we ever start 
making money, one of the first things I am going to get is a faster 
printer'). None of this usually needs to be done on a BBS. Granted, 
there is a certain amount of maintenance-type work that is peculiar 



to BBS's, but I suspect it is easier than what is involved in 
preparing a newsletter (maybe this is a case of "ignorance is bliss" 
on my part). 

In any case, it's up to you, dear reader. If you have any 
comments on the future of NORTHERN BYTES, the proposed BBS, or 
anything else, please drop me a line. Or better yet, a text file on a 
disk or tape, or an MCI Mail letter! 

Speaking of MCI Mail, an error by the folks at that 
organization put us (both NORTHERN BYTES and The Alternate 
Source) "off the air" for a few days around the end of February and 
beginning of March, So, if you tried to send us a message and the 
system wouldn't let you do it, please try again - all should be well 



THE EXTERMINATOR 

With the re-appearance of warm weather, the BUGS come 
swarming around! Dig out your back issues and your red pencils, 
and note this month's batch! 

There were some problems with Michael Brotherton's WHERE 
program that appeared in NORTHERN BYTES Volume 5 Number 7 
(and on TAS Public Domain Library disk * 005). Please make the 
following changes in WHERE/ASM and re-assemble! 



00330 
00331 
00332 
00333 
00334 
00335 
00336 
00340 

01621 
01622 



01860 DOSCM DEFM 'BASIC ,6451 2, DEFUSR0«fcHFC13:X«USR(0K 

DEFUSR0*&HFD83' 

Also, in line 1860 of the source code, change the program 
version number to 2.2. Thanks to Michael Brotherton for providing 
these fixes. I will also mention here that Michael has a 
"shareware" program called FMU that works in a manner somewhat 
similar to the VFU/CMD program of MULTIDOS, except that FMU 
works with NEWDOS/80. If you want a copy of this program, send a 
blank disk and return postage to Mike (Michael Brotherton, 5 Saddle 
Ridge Road, Milton, Connecticut 06897). If you like the program, 
you'll be asked to contribute a small amount of money to Mike, 
otherwise just erase the disk and you owe nothing. 

One more note about WHERE , this from A.F. West, editor of 
the TRS-80 SYSTEM 60 Computer Group club newsletter (MacGregor, 
Queensland, Australia). Mr. West points out that if you have 
WHERE/CMD installed and type in the following line! 

10 FOR 1=1 TO lO SNEXT 

(note that the "O" in the number 10 is a letter "O", not a zero as it 
should be), and then type RUN and <ENTER>, the result will bet 

10 FOR 1-1 TO lO »>!NEXT 

What this means is that in some circumstances, the actual error may 
be just BEFORE the pointer rather than just after. 

Finally, should you decide to change the ORG address in line 
100 of WHERE/ ASM, keep in mind that the addresses in line I860 
must also be changed by a corresponding amount! 

The next three BUGS were imported from Australia! In the- 
article UPGRADING THE TRS-80 MODEL I TO 64K OF DRAMs which 
appeared in Volume 5, Number 8, page 18, under "Part 2 Straps to 
be added", line (c) should read as follows! 



LD 


(4020H),HL 


i MOVE CURSOR 


LD 


A,(54H) 


! MODEL 1 OR 3? 


DEC 


A 




RET 


1 


; RETURN IF MODEL 1 


LD 


HL.40E6H 


! FIX "LAST BYTE EXECUTED" 


LD 


(BTFIND+2),HL 


! REPLACE MODEL 1 SETTING 


LD 


(K11+7),HL 


J IN TWO PLACES 


RET 




; LINES 


LD 


A,l 




LD 


(WONE),A 





(c) *RAS to pins 2 & 14 at Z73 



strap *9 



In MODEL III SELF-BOOTING DISK USING NEWDOS/80 which 
appeared in Volume 6, Number 1 (page 3>, insert the following line in 
step 3! 

Byte 06 - Track number of the /CMD file 



Then, on page 7 of Volume 6, Number 1, an article entitled 
RANDOM I/O should be totally disregarded. Not only are there 
errors in the circuit diagram, but author Dave Kennedy says that 
the circuit (as it should have been published) doesn't work in all 
situations anyway, and that he will be submitting a corrected circuit 
in the near future. 

Turning to last issue's article on the new Model 4/4P ROM 
image differences, Vern Hester (author of MULTIDOS) passed along 
some corrections and clarifications that may be of interest. First 
of all, at 02B5H a LD SP.4288H instruction has been changed to a 
LD SP,42E8H instruction. Under the "old" ROM, if you were in 
BASIC and used the SYSTEM command, because the Stack Pointer 
was set at 4288H the DOS vectors were clobbered, MULTIDOS and 
DOSPLUS avoided this by leaving the Stack Pointer where it was. 
This bug would only show up if you were a disk system user, but for 
some reason decided to load a machine language program from tape 
using the BASIC "SYSTEM" command. 

Second, I noted that at 1BC2H and other places, references to 
memory location 40B0H were changed to references to 409FH, I had 
said that 409FH was a previously unused location. Wrong' Vern 
notes that 409FH is used by the Model in BASIC LIST and LLIST 
commands, to enable listing of "packed strings", that is, to display 
graphics as graphics characters when bit is set. Also, bit 2 is set 
whenever a REM or ' token is encountered. This error (stating that 
409FH is unused) also appears on page 67 of TRS-80 ROM Routines 
Documented (oops!!). 

Finally, some corrections to the NEW RS-232 BOOT ROUTINE 
CODE. At memory locations 3180H-3183H a LD A,6DH instruction 
followed by a OUT (0EAH),A instruction is found, These initialize 
the UART for an 8 bit word, one stop bit, parity disabled, 
transmitter enabled, DTR on, and RTS off. When operating full 
duplex, RTS off maintains COMM in non-transmit mode, while under 
half duplex, RTS off maintains COMM in receive mode. Then, a 
little later on at memory locations 318AH-318DH, a LD A.6CH 
instruction followed by a OUT (0EAH),A instruction is found. These 
initialize the UART again with the same settings EXCEPT that RTS 
is set ON (note that in this case, when bit is at logical 0, RTS is 
gn, while bit = 1 turns RTS g£f). When operating full duplex, RTS 
on maintains COMM in transmit mode, while under half duplex, RTS 
on maintains COMM in transmit mode and inhibits receive. "What is 
COMM?", you ask. That's whatever is connected to the RS-232 (the 
TRS-80 is TERM). 

Also in the RS-232 BOOT ROUTINE CODE, the comment for 
line 570 (memory location 37D5H, a PUSH AF instruction) said 
'SAVE STATUS & CHARACTER'. Change that to just 'SAVE 
CHARACTER'. And, at line 640 (memory location 37E0H, a 
LD A,6DH instruction), the comment given is 'SET "DTR" BACK ON'. 
Change that to 'SET "RTS" OFF'. 

Bob Grommes of the Christian Computer Users Association 
passed along some information that he got off of CompuServe. Part 
of this information was in a file on the Writers & Editors SIG, which 
in many respects duplicates the information in our article on the 
new ROM image. But I thought I'd pass along an excerpt anyway! 

"The Model III ROM is actually three ROMs. ROM A holds the 
contents of addresses 0000 to 1FFF (all values are given in 
hexadecimal), ROM B contains 2000 to 2FFF, and ROM C has 3000 to 
37FF. There have been several versions of ROM C, but recently, for 
the first time since the Model HI was introduced, Radio Shack has 
changed ROM A.... The only major change is the printer driver (the 
interface between the computer and a parallel printer), although 
there are several minor changes elsewhere. 

"Fortunately, the procedures for setting the printer's line 
length and page length haven't changed. Also, the ROM printer 
driver is still at 03C2 to 0451, but now occupies other areas as 
well. The routine to wait for either "printer ready" or the 
<BREAK> key, formerly at 0440, is now at 01DC, and there are jump 
vectors at the formerly unused locations 0043 and 0063. 

"The new driver handles things slightly differently from its 
predecessor. With the exception of the carriage return (0D) and the 
form feed (0C), all control characters (below 20 hex) and non-ASCII 
characters (above 7F) had been sent to the printer unchanged. 
These increased the driver's count of the number of characters 
printed on the current line, although a new line would not be 
started. Characters from 20 through 7F were handled by a ROM 
translation table, and would force the start of a new line when 
necessary. 

"The ROM translation table is no longer in the new driver, but 
all characters below A0 are treated in the same way as before. 
From A0 to FF, however, the character actually printed depends on 
two flags, both of which are initially zero but can be changed by the 



user. AH possibilities will add one to the character count! a new 
line, with one exception) will be started if that count has reached 
its limit. 

"If the value in location 41FB is greater than one, all 
characters are sent to the printer unchanged. If that value is zero, 
characters from CO to FF have 20 hex subtracted before being 
printed, while for characters from A0 to BF, the second flag, at 
41FC, is checked. If the value in 41FC is not zero, then characters 
from A0 to BF aren't changed; if is is zero, then 40 hex is added 
before those characters are printed. 

"If the value in 41FB is equal to one, then A0 to BF are 
unchanged, and E0 to FF are also unchanged but will not cause a new 
line to be started (this is the one exception mentioned before). If 
the character falls within the range of CO to DF, then things get 
interesting. The address of the translation table is taken from 
4220 and 4221 (low-order byte in 4220), and the character to be 
printed is determined from this table. The translation table used 
here is not in ROM, but is user-defined. It's 20 (32 decimal) bytes 
long, with the first byte corresponding to the character CO and the 
last to DF, 

"There's one change in the new printer driver that I can't 
understand. The routine at 01DC, as mentioned before, checks for 
either "printer ready" or the <BREAK> key. Previously, if the 
printer was not ready, and <BREAK> was pressed, control would 
return directly to the byte I/O routine at 0694. Now, control 
returns to the printer driver, and the character and line counters 
will be updated as if the character had been printed!" 

I don't know the author of the above text, so I can't give 
credit. But Bob mentions that LDOS Support, commenting on the 
text file, said that the ROM A described in the file is what Radio 
Shack calls the "international ROM". This ROM A, together with 
the appropriate ROM C for the target country, has been distributed 
on Model 4's shipped to foreign markets ever since the earliest 
days of the Model 4. Apparently they have just decided to use this 
ROM A domestically also. 

LETTERS DEPARTMENT 
Starting with this issue, we are requesting that persons 
sending letters intended for publication send them on magnetic 
media or via MCI Mail (especially if longer than a couple of 
paragraphs). If you are NOT using Allwrite (or Newscript) and your 
word processor offers the option to tavt your file in ASCII format, 
please do so (especially if using SuperScripsit!). Your cooperation 
in this matter will help us to bring you a better newsletter! 

Dear Jack, 

Why is it that so few monitor programs have search commands 
where you can specify wildcards? I need this feature often, but 
except for expensive hardware logic analyzers I have only seen a 
single program where it was included. The feature is so easy to 
implement, that it should be a standard feature in all search 
routines. The letter X could be used as a hexadecimal wildcard 
character, For example to find calls to file open or dose routines 
you could search for CD2X44. This would also include any call to 
the Kill routine, but it would save searching for CD2044, CD2444 
and CD2844. Similarly, searching for almost all DOS routine calls 
could be done with CDXX44. 

The search is easy to implement. Instead of just a search 
string, you have a search and a mask string. For each valid digit in 
the specified search string you put a zero in the mask string and the 
digit into the search string, For each wildcard you put digit F in 
the search string and the mask string. When comparing characters, 
first OR the destination with the mask, and then compare with the 
search string, Alternatively the AND function could be used by 
putting F in the mask string for valid digits, and in the search and 
mask strings for wildcard digits. 

If B contains a byte count, HL points to the next byte in 
memory, IX to the next search byte, and IY to' the next mask byte, 
then the sequence for comparison could be! 

FIND EQU * 

LD fl,(HL) }«et nenory bate 

OR <IY) ;«ask for wildcards 

CP A, (IX) iconpare with searched 

JR NZ,NuMATCH ; not found 



INC HL 
INC IX 
INC IY 
DJNZ FIND 
FOUND EQU * 



{next destination byte 
{next search byte 
{next nask byte 
{loop for next character 
.continue if found 



Perhaps it could be considered for the next version of 
TASMON? 

••••• Tandy has started making their computers convertible 
from one power source to another. The Model 4 needs to have a 
jumper moved on the switched mode power supply. I don't know if 
the tame applies to monitors and other peripherals. The main 
problem with US purchases is the warranty and repairs, which [local 
authorized repair agencies 3 are reluctant to perform because too 
many are bypassing the official importers. I usually restrict 
overseas purchases to software and small units such as memory 
expansions or density doublers, All except my LNW 5/8" doubler 
have been reliable, and now it seems that LNW has gone out of 
business and taken my doubler with them. My model I is therefore 
restricted to single density. Perhaps one of your NORTHERN 
BYTES readers has a spare LNW 5/8" doubler which they would part 
with for a reasonable amount, say up to *33 plus postage? Mine 
originally cost about »160 with the Dosplus system. 

Kindest regards, Arne Rohde 
13 Gwenand Place, Howick, Auckland, NEW ZEALAND 

Clf any NORTHERN BYTES readers have an LNW doubler for 
Arne, but don't want to ship it overseas (not that it's difficult), you 
can send it c/o NORTHERN BYTES and I will re-ship it - but drop a 
line to Ame first and make sure he still needs it, please! As for 
the TASMON "wildcard character" question, I've forwarded it to 
Jonathan Yarden (who is the latest of many people to do work on 
TASMON!) for his consideration. We'll keep you posted if we 
actually implement this idea!] 



Dear Jack! 

Thanks for doing such a good job on Northern Bytes. I enjoy it 
and use a lot of what you print. 

Question! Reference NB Volume 5 Number 4, page 3. Section 

"TRS-80 Tidbits, Trash, Treasure, and Trivia". At mid-page, John 

says "Before these patches can be done, the patch to disable 

password checking must have been applied." And he goes on to list 

PATCH *2 <ADD«4ED4,FIND-20,CHG-18> 

This patch on my TRSDOS 1,3 does not disable the password 
challenge on backup requests. What have I missed? Is there a typo 
error in the patch or is further modification needed? I use a Model 
4 in the III mode. 

New subject. In Volume 5, Number 5 you asked about interest 
in Sanyo's, The largest Sanyo SIG in the U.S. is here in Moscow - 
some 500 members, I am told. I passed your name and address on to 
one of their group to see if there is interest here. 

Chuck Hudson 
P.O. Box 9163, Moscow, Idaho 83843 

[Haven't heard a word from the Sanyo SIG, so if you want 
more info, contact Chuck, As for the TRSDOS 1.3 problem, I passed 
it along to John Hallgren. His reply follows! 

"Your inquiry about the "password patch" was referred to me 
by Jack, and after some research, I think I have the answer, At 
first glance, there seemed to be nothing amiss, but upon re-reading 
your letter, the reason became clear. The key words are " backup 
requests ". The 4ED4 patch has a different function, which is hinted 
at in the next line in the article ('...we can modify §ny. file ...'). 
Since the 4ED4 patch modifies the OPEN/INTT overlay t'*2'), it only 
works at the file, level. The BACKUP/FORMAT routines C*7') also 
contain password tests. Using my copy of TRSDOS COMMENTED' 
by Soft Sector Marketing (now out of business), I have come up with 
the following patch! 

PATCH *7 (ADD«55A8,FIND-28,CHG=18) 
Please note that this is SQI a tested patch, as I have a Model I and 
have limited access to a IH/4, but it should work. What it does is 
change a 'JR V to 'JR' so that the INVALID MASTER PASSWORD' 
error routine cannot be executed. You will still be prompted for the 
password as it is a common routine used for checking the source 
disk password on a BACKUP operation and getting the password for 
the destination disk on FORMAT operations! however, the results 
of the source disk password check will be ignored, and the BACKUP 
will continue as if you had given the proper password. I cannot 
recall seeing this particular aspect of the TRSDOS 1.3 'protection' 
scheme discussed before, but the patch for file access has been 
around since 1982. At this rate, the perfect TRSDOS will be 
patched together by the year 2010!! 

"Hope this answered your question, and if you have any 
problems with this or any more inquiries about TRSDOS 2.3/2.3B 



(Mod I), 2.7/2.8 (Mod I double density), or 1.2/1.3 (Mod III/4), 

please feel free to contact me at: 

John Hallgren 
1939 Atlantis Drive 
Clearwater, Florida 33373" 3 



Dear Jack! 

I recently upgraded from a Model I to a Model 4 TRS-80) I 
bought a 16K caisette Model and installed drives from my Model I 
in it. They have a Track Step Rate of 20 ms. 

I acquired a copy of TRSDOS 6, which has a Track Step Rate of 
6 ms. built into it. After doing a <5TEP»3> and a (BSTEP»3) to it, it 
still would not load. I had to change the step rate in the boot 
sector to the proper value. The change is at Sector 1, Byte 9D 
(memory location 439D)! 18*6 msi, 19=12 ms., 1A*20 ms., 
1B*30 ms. I made the change with MULTIDOS' ZAP in the Model in 
mode. With MULTIDOS you don't have to play with PDRIVE 
configurations. 

Kax Sokolowski 
5960 Everwood Road, Toledo, Ohio 43613 

OVERSEAS EXPERIENCE 
by "Computer Nut" 
(Part 3 of a series) 

Hardware is not an end in itself, it is simply a means of 
achieving the desired end result of running suitable software. The 
most important part of any computer system is the software which 
is available to run on it. 

A common problem for many computer users, especially those 
living overseas or outside the normal range of computer stores, is 
finding out exactly which software is suitable for a particular 
purpose. There are several methods available for assessing the 
suitability. 

The first, and simplest, method is to read computer magazines 
and look for software reviews. The method is not foolproof, for a 
number of reasons. Some magazines always print positive reviews, 
no matter how bad the software. Others only print reviews of 
software which they have found to be good. Often a review never 
appears for a particular item of software. Even when a review does 
appear the reviewer often misses out on some particular point which 
can be of importance to you, such as catering for special printer 
drivers, allowing lower case input on a Model I, or respecting the 
reservation of high memory for other routines. 

Of course you cannot expect a reviewer to cover all features 
of a complex software system, so the next place to go is probably 
the software publisher. Magazine advertisements are often not a 
reliable guide, but if you do have specific questions then the 
software publisher should be able to answer them. This could also 
be a good test of the support which can be expected after you have 
bought an item of software. If the publisher does not bother to 
answer your letter before you buy, then the odds are that you will 
never get an answer to any questions or problems after you buy. 

A short note of advice to advertisers. Please include a 
postage rate in your advertisements for overseas orders. And if 
you don't want the problems or the profits involved, then please 
state clearly that you will only accept orders from within the 
country, 

If you do expect a written answer from another country then 
you could send along one or two international reply coupons. They 
should be available in Post Offices in most countries, and can be 
exchanged in other countries for the postage value of a surface mail 
letter. Send two coupons if you expect a reply by air mail. If you 
live in the same country you could send a stamped, self-addressed 
envelope for the reply. But please don't do what several Americans 
have done to me. They send an envelope with American stamps on. 
As far as I know, the only country where U.S. stamps are valid is in 
the U.S. 

If you live close enough to a computer club with members 
having the same computer system as yours, then you should be able 
to share software experiences. I have never been in this situation, 
but I have lived in an area with one or two other TRS-80 users, and 
I have corresponded with others for, I hope, mutual gain. This is 
probably the method which gives the best results when evaluating 
software, but also the area which can cause the most problems. 

Let me say at once that I am not an advocate of program 
piracy as a means of reducing software costs. I have several 
acquaintances who have bought software packages from the far 
East which were obviously pirated. My living is made by writing 
programs, including programs for TRS-80 users, so obviously I do 



not approve of piracy. However, I have found that the be«t method 
of evaluating software is to try it, and the least expensive method 
of trying it is to borrow a copy from someone else. There are 
probably many who would call this piracy, but I should add that if I 
find a software package useful and intend to continue using it, then 
I will buy my own copy. 

The current state of the TRS-80 marketplace is making it 
increasingly difficult to obtain suitable software packages. The 
number of magazines and publications for the TRS-80 has declined 
rapidly, and the size of the remaining magazines is also diminishing. 
Reduced size means fewer advertisers, which again means that some 
of the programs which were once available are no longer on the 
market. The same, of course, is also true for hardware. A recent 
experience has left me with a defective disk doubler for a model I 
somewhere unknown, after being sent for replacement to the 
manufacturer who apparently has gone out of business. My letters 
to them remain unanswered. 

Perhaps someone else has a solution, but sometimes I feel the 
need for a listing of all the programs currently available for the 
TRS-80 series, a listing of all companies still trading, and a listing 
of companies as they go out of business. One of the best sources I 
know of for availability of TRS-80 software is a British company 
called Molimerx Ltd. The address is 1 Buckhurst Road, Bexhill-on- 
sea, East Sussex, England. They have a catalog of about 190 pages, 
containing a number of programs I haven't seen advertised 
elsewhere for some time. There is a nominal charge for the catalog. 

A method of testing new software packages, if no other 
options are available, is to buy them and try them. This can be an 
expensive method, and can leave you with a number of unused, 
expensive pieces of software. For example I have a large number of 
operating systems, but only two of them are used regularly. The 
others mostly gather dust on the shelf. Probably less than half of 
the software packages I have purchased are used more than two or 
three times altogether. For the TRS-80 it seems that very few 
software publishers produce a demonstration version of their 
systems. Perhaps this is because software prices are generally 
lower for the TRS-80 than for CP/M and MS-DOS systems, and 
perhaps it is because demo versions require extra work to produce. 
Whatever the reasons, more demo versions of the more expensive 
systems, with a cost (partly) refundable on purchase, would be 
appreciated. ^ 

USE OF THE SPOOLER ON TRSDOS 6.2.0 

[Editor's Note! This file was downloaded from CompuServe by 
Bob Grommes of the Christian Computer Users Association, who 
passed it along to us. I assume that it was authored by someone at 
Logical Systems, Inc.] 

It has come to our attention that some users are having 
difficulty using the system spooler on TRSDOS 6.2.0. These 
problems fall into two categories'. 

1) The spooler won't run at all in the back bank (extra 
memory). 

2) The spooler runs fine at the DOS level but blows up in 
BASIC. 

Problem #1'. 

This is generally a result of a hardware difficulty. We have 
two machines here which exhibit this problem. Once the spooler is 
installed, the machine may lock immediately, or run until printer 
output is attempted, 

It appears that the CPU can't reliably execute programs that 
reside in the extra 64K RAM. Both are very early release machines 
with one or two wait states, and the problem may be related to the 
PAL chip not inserting Ml wait states for memory accesses in the 
alternate banks. Solution? get your CPU board swapped out. It is 
likely that Radio Shack will charge you for this. 

Problem #2! 

This one is a software problem. Contrary to the Radio Shack 
6.2 manual, back bank spooling was supposed to work with BASIC. It 
turns out, however, that there is a conflict between BASIC'S use of 
vectored <break> and the spooler. The following patch will allow 
the use of the spooler in the back bank from BASIC! 

PATCH BASIC/CMD.BASIC (D52,83»00 00JF52.83-06 7D> 

It may be possible to prevent this conflict in a future release of 
TRSDOS 6, 

In either case, spooling by using a disk file contained on a 
memDISIC in the back bank should work. 



SET/RESET AND DIRECT VIDEO CONTROL FOR MODEL 4 BASIC 

by Bob Grommes — B ft G Microsystems 

1733 Eastern S.E., Grand Rapids, Michigan 49507 

CompuServe 74126.72 

It has always bttn something of a challenge to ma to achitvt 
absolute control over the hardware using lowly old BASIC. Without 
the documentation to create some kind of interface with the DOS ( 
this had been relatively difficult on earlier machines like the Model 
I and III until IJG and others provided the documentation that 
Tandy wouldn't — such as Microsoft BA S^ Decoded and BASIC 
Faster and Better . About the time the Model 4 was introduced) 
Tandy's attitude of paranoid secrecy began to soften, and even the 
"official" Tandy coverage of the Model 4 hardware and DOS a refer 
the the Model 4 Technical Reference Manual ) was superb in 
comparison to the past. I've since collected a wealth of other 
tidbits from my investigations and the work of others, but am 
amazed how little has been published from the perspective of the 
Model I/III programmer trying to shift his mental gears to work on 
the Model 4. If you're like me, you've developed some favorite 
techniques you'd like to use on the 4, but just haven't the time or 
resources tor perhaps the heart) to start over from scratch and get 
those techniques working on the Model 4. Well, here's a fairly 
satisfying solution to this lack. Hang in here with me and when 
we're all done, you'll have a simple method of calling machine 
language routines from Model 4 BASIC that will give you much more 
power, flexibility and sophistication in designing displays than you 
have had until now. 

We're going to concern ourselves here with taming the Model 4 
video display. While some of you have been happily PEEKing and 
POKEing your Model I/III video display, pointing strings to it and 
so forth, you find this quite impossible with the Model 4, because 
the video RAM is not "memory mapped". A fair amount of writing 
has been done about the Model 4 video, including a fairly decent 
article in 80 Micro a few months back, so I won't go into great 
detail here, To make a long story short, there is a 3K RAM in the 
Model 4 that has the keyboard and the video display "mapped" to it. 
In order to read or write to this RAM, we send certain values out 
port 84H. The hardware then "bank switches* this RAM so that it 
can be addressed in high RAM starting at F400H and extending all 
the way to FFFFH, the top of physical memory. The video RAM 
actually goes from F800H through FF7FH (1920 bytes). The area 
from F400H through F7FFH is your keyboard RAM, and the area 
ABOVE video RAM (FF80H through FFFFH) is somewhat mysterious. 
Under TRSDOS 6.2, it is said to hold the keyboard type-ahead 
buffer and "other system buffers". Under previous versions, 
nothing I know of was said about this area but I believe it was 
unused by TRSDOS. A very few applications stashed data and short 
machine language routines here and won't work under TRSDOS 6.2 
for this reason. 

Anyway, while this 3K RAM is switched in, the previous 
contents of the high memory it shadows are "lost" until the 
video/keyboard RAM is swapped back out. Since most users have 
some kind of high memory drivers or filters active in this area, 
keyboard and video access routines must be very careful or they 
will clobber code that the system needs to function when the 
video/keyboard RAM is switched in. A little reflection will tell you 
that the DOS has quite a task keeping all the various system and 
user requests from colliding with the need to almost constantly 
scan keyboard and video. Also, our ability to directly access this 
RAM from BASIC is really quite restricted and inflexible because 
there are so many things we just can't to at the same time as video 
RAM is available. Any kind of I/O to or from system devices or the 
disks will cause a conflict. Any BASIC function which happens to 
call DOS routines may cause trouble. And because BASIC wasn't 
written with our kind of shenanigans in mind, IT may undo our 
configuration at any time in the course of its normal housekeeping, 

Still, for certain purposes, a direct video access method from 
BASIC could be useful — for example, the old trick of POKEing a 
value in the very last screen position to avoid scrolling. So before 
we go to a discussion of how to get TRSDOS 6 to handle video 
access FOR us, we'll demonstrate it the HARD way first. At the 
same time, we'll demonstrate the logic behind SET and RESET. 
These functions work too slow when written in BASIC, but it's 
easier to understand the logic behind them if we work through them 
that way and then explain the assembly language version. 

DGRAPH/BAS is actually two demonstration programs in one. 
The lines from 500 on are a self-contained program! to use it you 
have to load DGRAPH/BAS and RUN 500. But for now let's look at 
the code prior to line 500, which demonstrates direct video access 
from BASIC , 



The purpose of this module is to draw a border around the 
outer edge of the Model 4 display, beginning in the upper left hand 
corner, and then erase it, using pixel SET and RESET. Program logic 
actually begins at line 100, where the first thing we have to do is 
keep BASIC from using addresses above F3FFH t where 
video/keyboard RAM will soon reside. The CLEAR statement is 
equivalent to entering BASIC with the commend BASIC (M-XT3FF'). 
In your applications, you could have machine-language routines or 
data stored in the area F400H to HIGH*, as long as you won't use 
them during the direct video access. 

Next, we do what I feel BASIC should do by default, and 
consider all variables an integer unless otherwise specifically 
defined. This is assumed by all our variable passing techniques 
later on, so be forewarned. Next, in an effort to squeeze every bit 
of speed we can out of this program, we DIMension all the variables 
we will use in the order we want them in the variable lookup table. 
Finally, we set the variable VIDEO to the starting RAM address of 
video memory. Then the GOSUB 10 instruction will define several 
user functions. Ignore these for the moment, well get back to them 
shortly. 

Now in lines 110 - 130 we do the actual bank switching. The 
idea is! (1) disable interrupts. This will get rid of TRSDOS' 
constant access of the video to blink the cursor, and will also stop 
any interrupt driven tasks currently active in high memory so we 
won't clobber them. (2) Determine the current status of port 84B, 
tweak a couple of bits, and output that value to switch in video 
RAM. 

Unlike the Model I, which has CMD functions to 
enable/disable interrupts, we need a short machine-language 
routine (Wait! Come back!) to do the job. This is a huge, two-byte 
routine, so we store it in an integer variable in line 110. The 
assembler mnemonics for this routine is simply DI followed by RET. 
The VARFTR of DI.Z80 will serve as the entry address to this 
routine, Although unused in this demo, EI.Z80 is loaded with the 
instructions to re-enable interrupts (EI followed by RET). 
Naturally you have to switch video memory back out and re-enable 
interrupts once you're done fooling around in video RAM, but using 
a normal video output instruction (such as PRINT) or an END 
statement will do this anyway, so you usually don't have to 
explicitly bother with the chore. 

In line 130, we take a look at the byte in memory location 78H. 
In all releases of TRSDOS 6 to date (including 6.2.0) this location 
has contained the last value sent to port 84H. There is no absolute 
guarantee that this location won't move in future releases of the 
DOS! it is part of the system flags table which is supposed to be 
located with a machine-language call to the 0FLAGS routine. 
(Officially, it's the "O" flag, usually labelled OPREGi). This is the 
one big thing they didn't tell you in the 80 Micro article? if you want 
to insure your program will run under any future release of 
TRSDOS 6, you have to at least call a machine-language routine to 
pinpoint the location of this flag. Anyway, in this case we'll risk 
future portability for the sake of illustration. We take the value at 
78H, and send that value out port 84H after first adfristing the 
proper bits which will tell the hardware to bring in the video RAM. 
At this point we have temporarily lost any previous contents of 
memory above F3FFH, and this area is now addressable as keyboard 
and video. Note that we didn't actually change the value at 78H! if 
we were to send that value back out port 84H we would de-select 
the keyboard video RAM. 

Now we have to draw our border around the edge of the 
display. How do we turn on the proper pixels? First, we have to 
poke graphics blanks (128 decimal) around the edges of the display. 
For those who haven't gotten into the theory behind direct pixel 
addressing, it goes like this! Assuming we have a video location 
with a value in the range 128 through 191 decimal in it, we can turn 
any of the six pixels at that position on or off by setting or 
resetting the appropriate bit. If we number the pixels like so! 

1 
2 3 
4 5 
. . . then setting bit would turn on pixel 0, setting bit 4 would turn 
on pixel 4, and so on. In lines 132 and 134, we are accomplishing 2 
things! we are making sure that no non-graphics characters are at 
the screen edge, and that all pixels are off. 

The balance of this first demo through the END statement in 
line 220 draws and then erases the border using user-defined 
functions which mimic Model III SET and RESET statements as 
closely as possible. Again, although unused in this demo, the 
function POINT has been defined to describe how it would work. 
Let's take a closer look at the functions. 



Tht VIDRAM function calculate* the memory address of a 
given screen location, given the screen row and column. SET, RESET 
and POIHT then uh this function to PEEK at the proper byte on the 
video display and modify it. Kith SET and RESET we must then poke 
the changed byte back into the same location. 

We pass the X and T coordinates of the pixel we want to work 
with to these functions, so their first task is to convert X and T to 
the appropriate row and column to pass to the VIDRAM function, 
Second, we must determine which bit WITHIN that byte we are going 
to deal with. At this point I'm probably going to loose you if you 
don't get a pencil and paper and try a few examples of what I'm 
about to discuss to convince yourself it works. It's easier to SEE 
how it works than to understand the theory behind it. Once you SEE 
it, the theory isn't so bad. 

We can determine the video character row by dividing T by 3 
and ignoring any remainder (each video character position is three 
pixels high). Similarly, we can calculate the video column by 
dividing X by 2 and ignoring any remainder, because each video 
character is two pixels wide. Fortunately, since Model 4 BASIC 
supports integer division (note the backslashes we used instead of 
the normal forward slash) it's easier and much faster than using 
FIX, as we would have had to under Model III BASIC. 

Now that we have the proper video byte, how do we find the 
correct bit within that byte? Well, just pretend that the byte we 
are dealing with is a tiny video display, two columns wide by three 
rows deep. Remember those remainders we just threw away? Well, 
we shouldn't have, because they are our pixel row and column. 
Again, Model 4 BASIC to the rescue. The MOD (short for modulus) 
operation gives us the remainder of any integer division, so we 
don't have to develop a remainder function. So T MOD 3 yields the 
pixel row (0-2) and X MOD 2 yields the pixel column (0-1). Just to 
be difficult (and speed things up a bit), I didn't actually use X MOD 
2 to arrive at the pixel column! I used the alternate method of 
ANDing X with 1. ANDing any number with 1 will yield 1 if the 
number is odd, if it's even, Since the only two possible outcomes 
are or 1, this method works for the pixel column and is faster 
since it avoids a software-intensive division operation. 

Finally, we just take the pixel row, multiply it by two and add 
the pixel column to it. This yields a number through 5, which 
happens to be the bit we are looking for. Think of this operation as 
a mini-VIDRAM function for our imaginary mini-video display. 

Now the only dirty work left is to set, reset or test the bit we 
have just calculated. We do this with our logical operators. The 
method is borrowed from Rosenfelder's book, Basic Faster and 
Better which, if you don't have a copy of it, you should. (Lousy 
English, but you get the point). To make a long story short! 

To set any bit in a byte! NewAyte - 01d.byte OR 2 to the power of 

bit 

To reset any bit in a byte! New .byte = Old.byte AND NOT 2 to the 

power of bit 

To test any bit in a byte! Value = OldAyte AND 2 to the power of 

bit 

So, believe it or not, we went through all that just to address ONE 
pixel 1 Now run the 1st demo and see how long it takes to address 
ALL the pixels at the outer screen edge TWICE! Hmmm , . , clearly 
not anywhere near as fast as Model III built-in pixel functions, 
since it takes about 40 seconds to draw and un-draw our border. 
Looks like we need machine-language speed on this one. 

Well, if we're going to all that trouble, we might as well cover 
all the other things we can do to video from Model III BASIC that 
we can't directly do from Model 4 BASIC. The assembler code for 
VDCTL/OBJ which accompanies this article gives us complete 
control over the Model 4 video, with SET, RESET, POINT, video 
PEEK and POKE, scroll-protect, and the facilities to copy back and 
forth between video and RAM (or BASIC string variables). The 
second BASIC demo (line 500 to the end) loads VDCTL/OBJ and 
calls two of its several routines to do the same job as the first ' 
demo in about one tenth the time. In fact it works out about 
perfect, by my benchmark . , . about twice as fast as Model III SET 
and RESET, which is just about how fast it needs to be, since we 
have almost twice as many pixels to deal with. Let's bypass the 
assembler code for a bit and concentrate on the BASIC interface. If 
you don't know (or don't care tD know) Z-80 assembly language, just 
concentrate on the methods for making practical use of VDCTL. 
Hopefully those of you interested in assembly language ~ 
beginners and old-timers alike — will learn a few tricks and get 
more comfortable "talking" with TRSDOS 6. 

Taking a look at line 500, the entry point for our second demo, 
you will notice we are reserving memory above F3FFH again. This 



is not because we have to protect video memory (TRSDOS will take 
care of that matter for us this time) but only because we decided 
our VDCTL machine code will reside in memory starting at F4O0H. 
We could have put it anywhere within reason, but I selected this 
location because it's low enough to stay below the system HIGH* 
pointer (unless you have a lot of drivers or filters in high memory) 
and still high enough to keep from stealing too much memory from 
BASIC. 

In line 510 we load VDCTL/OBJ and define several variables. 
These all represent the entry points to the various routines 
supported by VDCTL. Here's one good thing about long variable 
names — it's immediately apparent what the purpose of each 
routine is. 

Line 520 clears the screen and turns the cursor off, and the 
balance of the program gets down to business and draws, then 
erases, our border — ah, THAT'S more like it!' 

All the VDCTL routines use the BASIC keyword CALL for 
access, rather than USR. Why CALL? It's more flexible and self- 
documenting. It's also easier to understand and use. About the 
only advantage I can see of USR over CALL is that USR can be used 
in expressions — for example, IF NOT USR7 THEN ... or even DEF 
FNX«T*USR7(Z). USR, however, has several limitations! you can't 
directly pass more than one variable to the subroutine, or receive 
more than one value back from it. You can't directly pass string 
variables to or from a routine called by USR. You are limited to 10 
simultaneously defined USR functions in a program. Another factor 
is that, at least in Microsoft's thinking, USR seems to be on the 
way "out". The Microsoft BASIC manual that comes with MS-DOS, 
for example, says that USR is provided "mainly for compatibUity 
with older programs" and that CALL "is the recommended method* 
for interfacing with machine-language routines. Thus, if you use 
USR today, it may be obsolete tomorrow. Nuff said. 

CALL allows us to pass any number of variables of any type 
(including strings) to and from our machine language subroutine in a 
very simple and flexible manner. The format is CALL 
ROUTINE(variable list . . . ) where ROUTINE is an integer variable 
that points to the entry address of the desired routine and 
"variable list" is one or more variables to be passed to the 
subroutine and/or receive values back from it, (If you don't provide 
a variable list, no values are passed). There are some limitations! 
arguments to CALL must be variables, not constants. Also, they 
must be declared variables — that is, when you use the command 
CALL SET(X,Y), X and Y must have been previously assigned a value 
somewhere in the program. BASIC normally assumes a value of xero 
in such cases, but not with CALL — you'll get an Illegal Function 
Call error. 

Below are the syntax and operation of each of the functions in 
VDCTL — the entry points for each are as defined in line 510 of the 
demo program. A few points to keep in mind! Except for 
VIDTORAM, all values passed to VDCTL are character values (0 to 
255 decimal). VDCTL ignores the Most Significant Byte of these 
variables and thus "sees" them as modulo 256. Except for VLINE, 
absolutely no error checking is done for invalid values passed (for 
example, a SET or RESET outside the boundaries of the display). In 
turn, the TRSDOS routines used by VDCTL do minimal error checking 
also. It's your responsibility to pass VALID values to VDCTL! 
VLINE checks for a target string that's too short but doesn't check 
for an invalid video display line. 

SE T — Turns on a pixel at a specified location on the video 
display. The call format is CALL SET(X.Y) where X is the X 
coordinate (0 thru 159) and Y is the Y coordinate (0 thru 71). If 
there is a non-graphics character at that particular position on the 
display, it will be be treated as if it had been a graphics "all off" 
character (128 decimal). 

RESET — The inverse of SET! turns off a pixel at a specified 
location. Same call format as SET. If there is a non-graphics 
character at that particular position on the display, it will be 
replaced with a graphics "all off" character (128 decimal). 

POINT — Test a pixel at a specified location on the video 
display. The call format is CALL POINT(X,Y,PIXEL) where X is the 
X coordinate, Y is the Y coordinate, and PIXEL is a variable to hold 
the results of the test. On entry, X may be thru 159, Y may be 
thru 71, and the contents of PIXEL is unimportant. On exit, X and 
Y are unchanged and PIXEL will be if the tested pixel was off. If 
the tested pixel was on, the variable PIXEL will be non-xero. 

VPEEK — Read the value at a given position on the video 
display. This is like a PEEK to video ram on the Model in. The 
format is CALL VPEEK(RW,CL,CHAR> where RW is the video row <0- 
23) and CL is the video column (0-79). The value at that position 
will be returned in CHAR. 



VPOKE — The inverse of VPEEK, works like a POKE to video 
RAM on the Model IH. Format! CALL VFOKE(RW,CL,CHAR) where 
RW i« the video row, CL is the video column and CHAR is the value 
to place there. Note that this function completely bypasses the 
video driver so it does not move the cursor and all values less than 
32 and greater than 191 placed on the display with VPOKE will 
result in the corresponding special character being displayed. 

CURSOR — Change the cursor character and store the old 
cursor character. You can change the cursor character with the 
statement SYSTEM "SYSTEM 03UHK>x)", but the CURSOR call is 
faster (no disk access involved; it's instantaneous) and you can also 
save the current cursor character for later recall. For example, 
suppose your program wants to use a large cursor such as 191. but 
when your program is finished, you want to restore the cursor 
character to whatever it was when the program was executed. You 
could just assume it was 95 (the default cursor under TRSDOS 6.2) 
but it might have been 176 (the default cursor under earlier 
TRSDOS 6 releases) or the user might have changed it to some other 
character of his own preference. Our calling format for this one is 
CALL CURSOR(NEW.CURSOR,OLD.CURSOR) where HEW.CURSOR is 
the new cursor character, and OLD.CURSOR is a variable to hold the 
old character. NEH.CURSOR must, of course, be a value of to 255! 
as with VPOKE, all values result in a character of some kind. On 
entry, the contents of OLD.CURSOR are unimportant and on exit, 
OLD.CURSOR will have the cursor character just replaced. Later, a 
call such as CALL CURSOR(OLD.CURSOR,NEW.CURSOR) will 
reverse the action of the first call. Important note ! TRSDOS 
Version 6.0.0 doesn't return the old cursor value, so using this call 
under that particular release of the DOS will return garbage values 
for OLD.CURSOR. All releases from 6.0.1 on return the old cursor 
value correctly. (Quick aside.' Two undocumented features of Model 
4 BASIC! You can legally use a period in a variable name, and you 
can substitute square brackets for parentheses when dealing with 
array variables). 

PROTECT — Scroll protect a specified number of lines at the 
top of the video display. Format! CALL PROTECTO.INES) where 
LINES is the number of lines you want to protect. This value must 
be in the range thru 7 (larger numbers are treated as modulo 8). 
This call does not alter the appearance of the display in any way, 
but subsequent scrolling will not have any effect on the top number 
of lines you specified. CLS will still dear the entire screen and you 
can still PRINT normally to positions in the scroll-protected area! 
however, the ONLY way to remove the scroll protect is to CALL 
PROTECTOJNES) with LTNES-0, or reboot the system, By the way, 
the 7 lines is a limitation of TRSDOS, not VDCTL. Break for an 
editorial! why this seemingly arbitrary limitation? Why not let you 
protect any number of lines? Why not allow top AND bottom scroll 
protects? For that matter, why not specify the four corners of your 
actual display area so you could create a window — even the 
primitive Apple II allows you to do that!! 

VLINE — Copy a line of the video display into a BASIC string 
variable, Format! CALL VLINE(VLt.LN) where VL« is a string 
which has been pre-defined to a length of at least 80 (actual 
contents irrelevant) and LN is the line of the video display you 
want stored in the string. VLINE returns without doing anything if 
the string is less than 80 bytes long. If you have some reason to do 
so, you can reverse the direction of the copy by issuing the command 
POKE VLINE+17,0. Once you do this poke, your 80 byte string VL« 
will be placed on line LN of the display. Of course for most 
purposes you can do the same thing by just using the PRINT & 
statement. To restore VLINE to its normal function, POKE 
VLINE+17,1. IMPORTANT NOTE! This function works ONLY under 
TRSDOS 6.2! 

RAMTOVID — Copy a 2K area of RAM to the video display. 
With some skillful manipulation, you can create a buffer area in high 
memory (say, in a string array), construct your desired screen there, 
then instantaneously copy that area to the display. The format is 
CALL RAMTOVID(BUFFER> where BUFFER is the starting address 
of the RAM area to be copied to the display. BUFFER must be 
greater than 23FFH and less than EC00H. 

The RAMTOVID function can be reversed with a POKE 
RAMTOVID+7,6. (To restore normal operations, POKE 
RAMTOVID+7,5). You must be careful with this one. You have to 
properly reserve a RAM buffer that will hold the video display. The 
buffer must begin BETWEEN 23FFH and EC01B. For the purposes of 
interfacing with BASIC, you might as well locate it right under your 
machine language routines and reserve the needed memory with the 
CLEAR statement. That's another reason I chose F400H as the 
starting address for VDCTL. The BASIC statement CLEAR, 
&HEBFF would allow you to have your video display buffer from 
EC00H through F3FFH. This is exactly 2048 bytes, If you had 



issued the above mentioned CLEAR statement at the start of your 
program, and BUFFER=&HEC00, you would instantly have a copy of 
the video display just below VDCTL in memory, 

The method used in the paragraph above will work with any 
release of TRSDOS 6. There are some wrinkles, though. Releases 
PRIOR to 6.2.0 copied 2048 bytes into the buffer, so you would get 
the 1920 bytes of video and the 128 "mystery bytes" immediately 
following video. Version 6.2/), however, copies only the actual 1920 
bytes of video RAM. This means you only need reserve 1920 bytes, 
inste ad of 2048$ HOWEVER, the revised Technical Reference Manual 
STILL gives EC00H as the highest possible starting address for a 
RAM video buffer, Was this an oversight in documentation, or a bug 
in the DOS itself? 

After some testing, I found that, at least under release 6,2.0, 
you can have your buffer start as high as EC80H, which is exactly 
1920 bytes below F400H. In fact, no error trapping is done if you 
specify a higher address, so you CAN do strange, dangerous and 
mostly useless things to your program if you aren't careful. 

Anyway, for the benefit of those who want to customize 
(excuse me, hack) on the assembly language source code, I'm going to 
mention a few points regarding the DOS interface. Due to the space 
we've already taken, I'm not going into great detail! you should 
have a copy of the Model 4 Technical Reference Manual if you 
seriously want to write this kind of code, anyway. 

All of the routines in VDCTL use just one TRSDOS 6 
supervisor call (SVC). The name of it is (JVDCTL (ViDeo ConTroL) 
and it's probably the most multi faceted SVC in the entire DOS. 
Actually, this SVC has several functions we haven't used, but they 
are easily available from BASIC (positioning the cursor and 
determining the current cursor position). 

The following should be kept in mind about all our calls to 
QVDCTL! None of the (JVDCTL functions used in our code changes 
the current cursor location; AF and B are destroyed by all the 
functions of SVDCTLi and all calls to (JVDCTL are done with 15 
decimal loaded into the A register (to select (JVDCTL, which is SVC 
•15) and the desired (JVDCTL function number (1 thru 9) in the B 
register. All calls to (JVDCTL which deal with a particular row and 
column location on the display are entered with H*desired row and 
L*desired column, 

Since neither TRSDOS nor BASIC provide any facilities for 
direct pixel addressing on the Model 4, I had to create a routine 
which I call CALCADDR to handle the number-crunching involved, 
SET, RESET and POINT all call it as the first order of business. 
This routine gets the X and Y coordinates passed by BASIC'S CALL 
verb and translates them into the appropriate video row and column, 
handily left in HL, just where ©VDCTL needs them to be. It also 
leaves the number of the bit we have to address at that location (0 
thru 5) in the C register, SET, RESET and POINT then take the 
appropriate action on the proper pixel by performing the correct 
logical operation on the byte at video row, column. The method of 
using a lookup table for this operation, as well as most of the math 
in CALCADDR, is adapted from a routine devised by Barden for the 
Model m in More TRS-80 Assembly Language Programming, page 
201. 

How does BASIC pass variables with the CALL verb? Upon 
entry to our assembly code, HL points to the VARPTR of the first 
BASIC variable; DE points to the VARPTR of the second variable 
and BC points to the VARPTR of the third variable. If there are 
more than three variables, BC will point to the start of a block of 
memory containing the 3rd through Nth VARPTRs, one after 
another. To understand how to read or alter these variables, you 
have to understand the structure of BASIC VARPTRs, which is 
beyond the scope of this article. However, studying the source to 
VDCTL/OBJ should give you an idea or two of how to go about it. 

As a final note, notice that we gave the lest RET instruction 
in the code a label, DOSENTRY, and used that label in the END 
statement. If the user attempts to execute the object code module 
from TRSDOS Ready, all that happens is that the program is loaded, 
control transferred to DOSENTRY, and the RET instruction takes 
him right back to TRSDOS Ready. 

Your comments and/or enhancements to this code are 
appreciated. Have fun! 

tpQRAFH/BASl 

1 'Demonstration of direct access of Model 4 video RAM from BASIC 

2 'Bob Grammes, 1733 Eastern SE, Grand Rapids, MI 49507-2029 
3' "RUN* for Demo #1{ "RUN 500" for Demo #2 

5 GOTO 100 

10 DEF FNVIDRAM(RW,COL)»VIDEO((RW»80HCOL) 

20 DEF FNSET(X,Y)-(PEEK(FNVIDRAM(Y\3,X\2») OR 2*(((Y MOD 3)» 

2WX AND 1» 



30 DEF FMHESET(X,T>-<PEEK(FHVIDRAMnr\3,X\2)» AND NOT P-MCT 


F133FECI 


M037 


CP 


192 




MOD 3>e2H(X AND 1» 






F«3M0 


81838 


Jt 


HC,PUT128 




40 DEF FNPOpXT(X,YMPEEK(FNVII>RAM(T\3,X\2>>) AND 2*<«T MOO 


F137 21D7F4 


88839 


LD 


HURESETKABX 


; Point to (tort of table 


3«H(X AND 1» 






F13A09 


vfflt 


AN) 


HL.BC 


{ Index to deiired na* 


50 RETURN 






F13BM 


IBM 


AtO 


(HL) 


; (Met pixel 


100 CLEAR,&HF3FF:DEFINT a- 




FCC* 


IIMZrUIBYlE 


LD 


CA 


t Put the character back 


2:DIM X.T.VXDEOtCLSmDEO&HFOXKGOSUB 10 


F43D3E* 


B8M3 


LD 


A,MXTL 




1 1 DI.Z80-C VI(CHR»(&HF3HCHR»(SiHC?»XI.Z80*C VKCHR*»HFB>*C 


F13FM2 




LD 


8,2 




HR*<&HC9» 






F411E1 


88M5 


POP 


HI 


! Reitore ron»coluMn 


120 DI-VARPTR(DI.Z80KCALL DI 




FH2EF 


MM6 


RST 


H 




130 OUT fcH84,(PEEK(&H78> AND &HFC) OR 2 


FH3C9 


88M7 


RET 




SBacktoBMSX 


132 FOR X-0 TO 798POKE FNVIDRAM<0,X>,128:POKE FNVn>RAM<23, 


F4H3E88 


88HBPUT12B 


LD 


A.12B 




X),128!NEXT 






FH« 18F1 


S8M9 


Jt 


PUTBTTE 




134 FOR X-0 TO 23JFOKE FNVIDRAM(X,0),128SPOKE FNVTORAMa.7 

9M285NEXT 

140 FOR X-0 TO 1591FOKE FNVIDRAM(0,X\2),FNSET<X,0)SNEXT 




IN5I 








F498C5 


SHSlPODtT 


PUSH 


BC 


', Save pointer to T/F variable 


150 FOR Y-0 TO 718FOKE FNVDDRAM(T\3,79),FNSET(159,T)SNEXT 


FH9CDBST1 


88152 


CALL 


CALCAODR 


} Get byte and bit addresses 


160 FOR X-159 TO STEP - 






F1C3EIF 


81153 


LD 


AJVDCTL 


; Get video character 


i SPOKE FNVIDRAM(23,X\2),FNSET<X,71>:NEXT 


F4CC5 


M851 


PUSH 


BC 


{ BC altered to fVDCTL 


170 FOR Y-71 TO STEP - 






F1* 1611 


•••53 


LD. 


B,l 




liPOKE FNVIDRAM<T\3,0),FNSET(0,T>:NEXT 


F151EF 


•••56 


RST 


48 




180 FOR X-0 TO 159SPOKE FNVIDRAM(0,X\2),FNRESET(X,0)«EKT 


F43ZC1 


l»«7 


POP 


BC 


t Restore C 


190 FOR Y-0 TO 711POKE FNVIDRAM(T\3,79),FNRESET(159,T)«BXT 


F453FEB8 


•MSB 


CP 


128 


; If char <12B or >191, return falsi 


200 FOR X=159 TO STEP - 






F155 381I 


81159 


Jt 


CPDELOFF 




UPOKE FNVIDRAM(23,X\2) ( FNRESET(X,71KNEXT 


F457FECI 


MM 


CP 


192 




210 FOR Y=71 TO STEP - 






F159 3MC 


11161 


Jt 


HC,PDEjOFF 




liPOKE FNVIDRAM(Y\3,0),FNRESET<0,Y)iNEXT 


F15B Z1O0H 


•••62 


LD 


H.POWIHAa 


•, Point to stort of table 


220 END 








F45EI9 


•M63 


ADD 


HL,BC 


J Index to desired «ask 


500 CLEAR,&HF3FF:DEFINT A-ZIDIM X,Y,SET,RESET,FOINT .PIXEL 


FtJF A6 


MM 


AMI 


(HL) 


! M if pixel off, O* if on 


510 SYSTEM "LOAD VDCTL/OBJ"{SET»&HF400:RESET-&HF424:POIN 


F46IE1 


M065LOADWR 


POP 


HL 


( Point HL to BASIC T/F variable 


T=&HF448:VPEEK-&HF46B:CURSOR-&HF478iVPOKE-fcKF481JPROTE 


F16177 


MM 


LD 


tlt),A 


; Load the BASIC T/F variable 


CT-&HF491 :VUNE"&HF498:RAMT0VID-&HF4AB 


F162 23 


IIM7 


DC 


HL 




520 CLSIPRINT CHRt(15)J 






F163 3EII 


MM 


LD 


A,l 




530 Y=0!FOR X-0 TO 1591CALL SET(X,Y)1NEXT 


F165 77 


8IM 


LD 


(HL)»A 




540 X-159SFOR Y-0 TO 71SCALL SET(X,YKNEXT 


F466C9 


IM7I 


RET 




; Back to BASIC 


550 Y-71JFOR X-159 TO STEP -15CALL SET(X,Y>iNEXT 


F167 3EM 


•1171 PTXCUOFF 


LD 


A,l 




560 X=0!FOR Y-71 TO STEP -liCALL SET<X,Y)!NEXT 


F169 18F5 


•••72 


Jt 


LOMMW 




570 Y=0!F 


OR X-0 TO 1591CALL RESET(X,Y>:NEXT 
>1F0R Y-0 TO 71 5CALL RESET(X,YKNEXT 




11173 








580 X-15S 












590 Y-7UFOR X-159 TO STEP -11CALL RESET(X,Y)1NEXT 


F14BC5 


•1171 UPEEK 


PUSH 


BC 


; Save 3rd arfunent 


600 X-0JFOR Y-71 TO STEP -liCALL RESET(X,Y«NEXT 


F16C16 


•1175 


LD 


8,(HL> 


} B« Row 


610 PRINT(J0,CHR«(14); 






F16DEB 


11176 


a 


DE,HL 












F44E« 


•••77 


LD 


C.Ol) 


; C ■ Colun 




[Source code for VDCTL/OBJ] 


F16FC5 
F17IE1 


MI78 
•••79 


PUSH 
POP 


BC 

HL 


SKoveeCtoHL 




Mill ; VDCTL/OBJ - 


IVDCTL inttrfict for Hodel 1 BASIC - (2/24/W 






MII2 ! 






F171 0611 


••080 


LD 


B,l 


(Setup for SVC 


•OIF 


IIII3 WDCTL EOU 


15 




F473 3EIF 


•1081 


LD 


A,(vOCTL 




FIDO 


HIM ORG 


•FWH 




F175EF 


11*82 


RST 


11 


i Tax a peak 


F4M C085F1 


IMIS SET CALL 


CALCADDR 


! Gtt vidn pos 1 bit *im 


F174 18EI 


•(•83 


Jt 


LOAOUAR 


! Now return reault 1 back to BASIC 


F4»3 3E0F 


••116 U> 


A,CvDCTL 


! Get video character 




81081 








F1J5 C5 
F104 Ml 


Mil/ FUSN 
00008 LO 


BC 

B,l 


( BC altered by IVDCTL 


F178 « IIBB5 CURSOR 


LO 


C,(HL) 


; C • new cursor character 


F108 EF 


00009 RSI 


11 


! Video character now in A 


F179D5 


81086 


PUSH 


DE 


J Save return variable 


F10? CI 


Hill FOP 


BC 


i Restore C 


F17A MM 


11087 


LD 


B,8 


! Set up for SUC 


FHAE5 


Hill PUSH 


HL 


i Save rou,colum 


F17C3EIF 


IM86 


L0 


AtHDCTL 




F1WFE80 


11112 a> 


128 


; If A<128 or >191, ft*e it in 


F17EEF 


8(189 


RST 


K 


! Old cursor character now in A 


F10D 3316 


11113 Jt 


CF0RCE128 




F17F 1B0F 


8M9I 


Jt 


LOADVAJt 


} Return old cursor 8 back to BASIC 


FWFECI 
Fill 3112 
FM3 18(2 


00011 CP 
IM15 Jt 
0M16 Jt 


192 

NCfFOHZ128 

VALID 






8M91 








F«l CS 18892 V70KE 


PUSH 


BC ; Save pointer to value to be poked 


F115 3E80 


11117 F0RCE128 LO 


A, 128 




F162 44 


•1093 


LD 


B,(HL) 


;B»Rdw 


F117 ZID1F1 


•1118 VALE) LD 


HL.SETHASK 


i Point to start of tablt 


F183E8 


11191 


EX 


K.HL 




F11A J? 


11119 ADD 


HL.BC 


! Index to desired natk 


FW* 


•1195 


LD 


C,(HL) 


t C-Colum 


F11B86 


MIZI OR 


(HL) 


! Set pixel 


riescs 


••196 


PUSH 


BC 


1 Save Raw 1 Cohan in AF 


FUC IF 


10121 LD 


CA 


i Put the character back 


F1B6F1 


IM97 


POP 


AF 




F11D 3E0F 


11122 LD 


A.BVDCTL 




F1B7E1 


IM98 


POP 


HL 


t Paint to value to pake 


F41F M2 


1(123 LD 


8,2 




F1BBC 


SM99 


LD 


C(HL) 


! Put poke value into C 


F121 El 


10121 POP 


HL 


i Restore row»colun 


F1B9F5 


Mill 


PUSH 


AF 


j Get row, colun into HI 


F122 EF 


10125 RST 


11 




F1BAE1 


Mill 


POP 


HL 




F123C9 


10026 RET 




! Back to BASIC 


F4BBI6I2 


•1112 


LD 


6,2 


i Set up far SVC 


11127 






F18D3E8F 

F18FEF 

F19IC9 


11113 
M1H 
••115 


LO 

RST 

RET 


A,(vDCTL 
U 


} Poke it 

; Back to BASIC 


F121 CDB5F1 


10028 RESET CALL CALCADDR 


i Get byte and bit addreaiM 


F427 3E0F 
F429 C5 
F1ZA Ml 


•0029 LD 
•0131 PUSH 
MI31 LD 


A,MCTL 
BC 

8,1 


! Get video character 
! BC it altered by eMOCTl 




111(6 








F191 * 81117 PROTECT LD C,<HD 


t C - nurter of lines to protect 


F12C EF 


11032 RST 


11 




F192 mi; 


•0118 


LD 


B,7 


! Set up for SVC 


F12DC1 


•••33 POP 


BC 


i Restore C 


FW3E8F 


80119 


LD 


A,(JvTiCTL 




F12E E5 


01131 PUSH 


HL 


', Save raw,cohm 


F196EF 


80110 


RST 


H 


i Do it to it 


F12FFEBI 


18135 CP 


128 


! If 4K12S or >191, Make it tffl 


F197C9 


81111 


RET 




I Back to BASIC 


F131 3811 


•1136 Jt 


C,PUT128 


J and skip the reiet 




8(112 









8 



J umnniimmimrn 



immimnii ■ ■i.w..i«.. n 



F19B7E 


11113 vUJC 


LD 


A,(H) 


i Get length of target string 


FW9fE5l 


11111 


CP 


81 


! Hake sure length is >= 81 


FTO D8 


•1115 


RET 


C 


! Do nothing if < 81 


M9C D5 


11114 


PUSH OE 


1 Save 2nd argunent 


Fffl) 23 


10117 


DC 


H 


! Get actual string address into DE 


F«E 5E 


11118 


ID 


E,(HL> 




FW 23 


•111? 


DC 


HL 




F«0 Si 


11121 


LD 


D.(HL) 




F«l El 


•1121 


POP 


HL 


! HL points to 2nd argunent 


F1A2 & 


••122 


LD 


H,(HL) 


i H has video line to get 


F1A3 1419 


••123 


LD 


6,9 


i Set up for SVC 


F«5 3E0F 


M121 


LD 


A.WDCTL 




FW KOI 


11125 


LD 


CI 




FW 


•0124 POKEADDRl EOU 


»-l 


! Poke 1 here to con string to video 


F«? FF 


••127 


RST 


10 


i Get the line 


F1AA C9 


08128 


RET 




; Back to BASIC 


•0129 




rw 5E 


•0131 RAhTOVH 


LD 


E,(HL) 


umimiiiinlllllHllftllllif 

; Get pointer to RAM buffer into HL 


FW 23 


10131 


DC 


HL 




FW) 54 


••132 


LD 


D,(HLl 




F« EF 


10133 


EX 


DE.HL 




FW 3EJF 


00131 


LD 


A,M)CTL 


! Set up for SVC 


F«l 0405 


•0135 


LD 


B,5 




F«2 


00134 POKEADDR2 EOU 


♦-1 


! Poke 4 here to (take this WDTORAH 


FIB? FJ 


•0137 


RST 


10 




F*1 C9 


•0138 


RET 




i Back to BASIC 


(0139 






00110 ; 


CALCADDR - Translate X,Y coordinates to absolute character 




00111 ; 




position 


and bit position within the character . 




00112 ; 




ENTRY! HL Points to the X coordinate, DE points to 1 




•0113 ; 




EXIT: H=video row, L=video colum, C*it position " 


Jmxxnxrr 


oom 

mum mi f f |f ff»w»wwi 






F«5 IE 


00115 CALCADDR 


LD 


C,(HL) ! Get the X coordinate into C 


F«4 EP 


00114 


EX 


DE,HL 




F*7 7E 


•0117 


LD 


A, ia> 


! and the Y coordinate into A 


" "«8 6' 


•0118 


LD 


L,C 


! Mow L has X coordinate 


** CB3D 


00119 


SRL 


L 


! L/Wideo colunn now in L 


F«6 OE00 


00150 


LD 


c,o 


; Set bit colum to t 


FIFO 3001 


00151 


J! 


icmcao 


; Go if bit colum=0 


F«f CC 


00152 


DC 


c 


i Else bit colunTFl 


F1CD 06TF 


•0153 BITCOL0 


LD 


B,-l 


i Initialize counter 


fc: 01 


•0151 VHHOM 


DC 


B 


i Bunp quotient (B= video row t) 


F1C3 D403 


00155 


sue 


3 


I Successive subract for /3 


F1C5 F2C2F1 


00154 


jp 


p.vhrom 


; Loop until negative 


F1C8 C403 


0015? 


ADD 


*,3 


; A=8it row (Y HOD 3) 


FCA 0~ 


00158 


RLCA 




; bit row i 2 


F«f 81 


00159 


WD 


A,C 


; (bit row i 2)*bit colum 


FCC fF 


00140 


LD 


C,A 


i C - bit position (0 thru 5) 


FW 60 


10141 


LD 


H,8 


! (Hftdeo row 


F1CE 0400 


00142 


LD 


B,» 


; Zap 8 for later ADD BC.HL instruction 


FIDO C<? 


•0143 DOSENTRY 


RET 






F*l 81 


•0141 srnwsK 


DB 


81H,82H,8W,88H,9tH,0A0H ; Mask tables 


82 81 B8 90 AO 








FID' Ft 


00145 RESEDMSK DB 


•FEU, IFDH, tFBH, W7H, KFH, IDFH 


FD Ft: F7 EF DF 








FIDO 01 


00144 PCDmwsK oe 


1,2,1,8,14,32 




02 01 08 10 20 








F1DC 


00147 


EM) 


DOSOfTRY 


! Do nothing if executed fro* DOS ready 


FIDO is the transfer address 








00000 Total 


errors 



















has a way to do this). In most other cases, we prefer a plain- 
vanilla ASCII text file. If you don't have a word processor, use any 
text editor you do have - the editor of an editor-assembler program 
will do, or you can even type text into BASIC lines (just be sure to 
put an apostrophe or REM statement at the beginning of cacti line). 
We can easily strip off leading line numbers and/or other garbage if 
necessary. 

3) Programs listing formats! BASIC programs may be sent in 
regular (tokeniied) format OR in ASCII format IF you are using 
Model I/HI BASIC. Programs created tinder other BASICs (Model 4 
BASIC, etc.) should be saved using ASCII format (the command it: 
SAVE "filename",A ). Editor-Assembler listings should be sent in 
BOTH the normal format of your editor-assembler AND in list file 
format if your assembler has that option (if you don't know what 
"list file format" is, your assembler probably doesn't have it and in 
that case, we probably don't need it since we can generate it here, 
In particular, we do NOT need the "list file" if your program was 
created using Microsoft's Editor-Assembler Bus or the Radio Shack 
or Apparat EDTASM programs). If you do send the list file and have 
the option to include the symbol table, please do so. Programs in 
other languages should be sent in ASCII format (you should assume 
that the editor has never even heard of the language you've used, 
and write your article and prepare your program listing accordingly), 

4) DON'T FORGET to send BOTH the article text fUe and any 
program files. We no longer accept hardcopy submissions! 

5) You may use any ALLWRITE-compatible control words or 
emphasis marks within your text (I may remove them if you get 
carried away, but go for it anyway). In particular, if you want 
something to be underlined , do it like this! 

... here are the QSwords to be urn 
translate to! 
^5 •>. here are the words to be un 

6) Finally, if you are mailing disks, either use a regular siie 
disk or photo mailer, or an envelope that is not too large (about 
4,"x9" is a good size) and then sandwich the disk between two pieces 
of very stiff cardboard. Write "DO NOT BEND" on the outside of 
your envelope. Two no-no's are very large envelopes (I have a 
regular size mailbox, and my mailman invariably tries to bend such 
envelopes to make them fit in the box) and "Jiffy" type bags (very 
nice for mailing fragile items, but very poor protection for disks 
since they can be easily bent). 



... here are the (Jfwords to be underlined0% ... 
willtranslate to! 

coordtH •« here are the words to be underlined ... 



NORTHERN BYTES ARTICLE SUBMISSION FORMAT 

Occasionally we hear from someone who wants to contribute 
an article to NORTHERN BYTES, but isn't sure what format to put 
it in or how to send it. Here's a quick guide! 

1) Send your article on disk, tape, or electronically via MCI 
Mail. We can read just about any TRS-80, CP/M, or MS-DOS 
compatible disk (if we can't read it directly, we can at least pull the 
Files off the disk using a conversion program such as Hypercross). 
.f you use tape on a Model III or 4, save the article and/or program 
to tape at the low (500 baud) cassette speed. 

2) If you are using Allwrite or Newscript as your word- 
processor, you may send text files in your word-processor's native 
format. If you are using SuperScripsit, please do NOT send a 
SuperScripsit format file - convert it to ASCII first (SuperScripsit 



£4K $59.95 ppd 

INSTALLED IN KEYBOARD 

TRS-80* Model l-LII 

Send us your Keyboard and we 
will convert it to full 64K 
memory (48K RAM). Im- 
proved performance with or 
without Interface. 90 day 
warranty. Satisfaction guaran- 
teed. Quick return. Free return 
freight within U.S.A. 

ICE T'wrni ii 111 iTiirnMfiirirr 

International Carbide & Engineering. Inc. 
100 Mill St. • P.O. Box 216 
Drakes Branch. VA 23937 

(804)568-3311 TWX: (910)997-8341 
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MORE CHANGES TO SETDATE 
by Jack Decker 

If you live in the U.S.A., you'll probably want to skip this 
article. Otherwise, read on... 

In NORTHERN BYTES Volume 6, Number 2, I printed a letter 
from Clifford S. Richards of Sydney, Australia, asking for a version 
of SETDATE that would work with a patched version of NEWDOS/80 
which stores the date in DD/MM/TY format (rather than the 
original MM/DD/YY format normally used here in the U.S.). I 
provided a list of changes to SETDATE version 1.3 which would 
accomplish this, however, Clifford has contacted me again and asked 
for a version which also writes the date to the file DATE/TXT, 
similar to what DS/CMD (on TAS Public Domain Library Disk #006) 
does, but once again modified to work with a DOS that stores dates 
internally in the DD/MM/YY format. 

So - here's how to modify the already-modified SETDATE once 
more, to also write the date string to file DATE/TXT. 

1) Start with a copy of SETDATE/ ASM version 1.3 (do not use 
an earlier version, as these instructions will not make sense. If 
you need a copy of version 1.3, it can be found on any recent copy of 
TAS Public Domain Library Disk *001. If you have an older copy of 
PD#001, send it to me [not TAS1 along with an adequate amount to 
cover return postage, and I will upgrade it for you). 

2) Apply the changes from NORTHERN BYTES, Volume 6, 
Number 2, pages 4 and 5. Save and assemble this program since you 
may want to use it on your non-wordprocessing disks. 

3) Once you have ascertained that you have installed the 
previous changes correctly, apply the changes shown below. Please 
note that you can save yourself a bit of effort if you read 
everything before you do anything. If you are observant, you will 
notice that I tell you to delete a large block of code in one place, 
and then re-enter almost exactly the same code elsewhere. If your 
assembler permits, you might save yourself some effort by just 
moving the code and making the required changes. 



{Get day (1 - 31) 

JPut day in L 

!HL = day 

{Save date storage pntr 

JPrint day 

{Restore date storage ptr 

JPrint space character 

iPoint to month byte 

JGet month (1 - 12) 

{Offset for string table 

JPrint month string 

JPrint space character 

JPoint to year byte 

JGet year (0-99) 

JPut year in C 

JBC = last 2 digits year 

JGet century offset 

JHL = Year (all 4 digits) 

JPrint year 

JPrint day, month & year 



{Restore input buffer ptr 

{Get loc memory date stor 
{Save memory date storage 
{Logical Record Lngth-256 
{File Control Block pntr 
{File I/O Buffer pntr 
{DOS INIT routine 
{Go if error 

JGet memory date storage 
JPoint to month byte 
{Point to day byte 
{ROM "byte output" addr 
{Change program vector 
{Output date to file 
{Carriage return in A 
{Output it to file 
{CLOSE file 
{Restore input buffer ptr 



******** 


DELETE the f 


ollowing lines! 


01820 


LD 


A,(BC) 


1 830 


LD 


L,A 


01840 


LD 


H,0 


01850 


PUSH 


EC 


CI 360 


CALL 


PRTNUM 


01870 


POP 


BC 


01 £80 


CALL 


PRTSPC 


oie^o 


DEC 


BC 


01900 


LD 


A,(BC> 


oi^io 


ADD 


A,6 


01920 


CALL 


PRT9TR 


01930 


CALL 


PRTSPC 


01940 


DEC 


BC 


01930 


LD 


A,(BC) 


01960 


LD 


C,A 


01970 


LD 


B,0 


01980 


LD 


HL.(CNTURY) 


01990 


ADD 


HL,BC 


02000 


CALL 


FRTNUM 


***"***« 


REPLACE with this line: 


01820 


CALL 


PRTDAT 



******** DELETE this line! 
02420 EXIT2 POP HL 
******** REPLACE with these lines! 
02411 EXIT2 CALL GETBFR 



02412 
02413 
02414 
02415 
02416 
02417 
02418 
02419 
02420 
02421 
02422 
02423 
02424 
02425 
02426 
02427 



PUSH 

LD 

LD 

LD 

CALL 

JR 

POP 

INC 

INC 

LD 

LD 

CALL 

LD 

CALL 

CALL 

POP 



DE 

B,0 

DE.FCB2 

HL.FILBUF 

4420H 

NZ.ERREXT 

EC 

BC 

BC 

A.1BH 

(OUTCHR+l),A 

PRTDAT 

A.0DH 

OUTCHR 

4428H 

HL 



02520 JR CGETKEY 

CHANGE TO! 

02520 JP CGET K EY 

02540 JR NCGETKEY 

CHANGE TO! 

02540 JP NCGETKEY 

******** CHANGE lines 3300 £ 3400 
03300 CALL 33H 

CHANGE TO! 
03300 CALL OUTCHR 

03400 CALL 33H 

CHANGE TO! 

03400 CALL OUTCHR 

******** DELETE the following lines! 
03350 PRTNUM CALL 0A9AH 
03360 CALL 0FBDH 

03370 INC HL 

***•*•*« REPLACE with these lines! 



{ less than ASCII 18H 

{ less than ASCII 18H 

{ than ASCII 1CH 

{ than ASCn 1CH 

(33H to OUTCHR)! 

{Display it on video 

{Display it on video 

{Display it on video 

{Display it on video 



{Number in HL to ACCUM 
{Convert # to string 
{Skip leading space char 

{Get day (1-31) 

{Put day in L 

{HL = day 

{Save date storage pntr 

(Print day 

{Restore date storage ptr 

{Print space character 

JPoint to month byte 

{Get month (1 - 12) 

{Offset for string table 

JPrint month string 

{Print space character 

{Point to year byte 

JGet year (0 - 9?) 

JPut year in C 

JBC = last 2 digits year 

{Get century offset 

{HL = Year (all 4 digits) 

J5ave DE 

JNumber in HL to ACCUM 

{Convert t to string 

{Skip leading space char 

{Restore DE 



******** CHANGE line 3420 (JP 33H to JR OUTCHR)! 

03420 JP 33H {Display on video & RET 

CHANGE TO! 

03420 JR OUTCHR {Display on video & RET 

******** CHANGE the following lines! 

03670 FCB DEFM 'AUSDATE/CMD' {File Control Block area 

03680 DEFB 3 { with program filename 

03690 DEFS 20D { (total 32 bytes) 

******** ADD/REPLACE (3661-3663 added. 3670 & 3690 changed)! 



03350 


PRTDAT LD 


A,(BC) 


03351 


LD 


L,A 


03352 


LD 


H,0 


03353 


PUSH 


BC 


03354 


CALL 


PRTNUM 


03355 


POP 


BC 


03356 


CALL 


PRTSPC 


03357 


DEC 


BC 


03358 


LD 


A,(BC) 


03359 


ADD 


A,6 


03360 


CALL 


PRTSTR 


03361 


CALL 


PRTSPC 


03362 


DEC 


BC 


03363 


LD 


A,(BC) 


03364 


LD 


C,A 


03365 


LD 


B,0 


03366 


LD 


HL,(CNTURY) 


03367 


ADD 


HL.BC 


03368 


PRTNUM PUSH 


DE 


03369 


CALL 


0A9AH 


03370 


CALL 


0FBDH 


03371 


INC 


HL 


03372 


POP 


DE 



03661 


OUTCHR 


JP 


33H 


{Adr modified for dsk I/O 


03662 


FCB2 


DEFM 


'DATE/TXT' 


{Second FCB area (uses 


03663 




DEFB 


3 


{ part of original FCB) 


03670 


FCB 


DEFM 


'RD/CMD' 


{File Control Block area 


03680 




DEFB 


3 


{ with program filename 


03690 




DEFS 


25D 


{ (total 32 bytes) 



*«»««*•« CHANGE lines 2520 & 2540 (JR to JP)! 



INSTRUCTIONS FOR THE INSTALLATION OF ADDITIONAL MK 

MEMORY IN THE NEW TRS-80 MODEL 4A 

by Mike Santana 

[Reprinted from The INTERFACE newsletter of the San 
Gabriel Valley TRS-80 Users Group. 3 

This new Model 4A has one single board with CPU, Disk Driver 
Circuit, RS232 and Printer Driver in one single P.C, Board, It also 
has a new keyboard and a Green Screen. 

1. Locate U33 SN74LS273N. 

2. Next to U33 Pin 17 is Capacitor C39. 

3. Locate wire running from Capacitor C39 connection in front 
U33 Pin 17 to U5 Pin 16. 

4. Disconnect wire soldered to C39 and solder to U33 Pin 16. 

5. Jumper wire is now connected between U5 Pin 16 and U33 
Pin 16. 

6. Install new 64K Memory in sockets U67 - U74. 
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by Greg Small 

Welcome to the second installment of this column devoted to 
the understanding! use, and modification of NEWDOS/80. 

For those of you coming in late, let me explain the background 
of this feature. 

I attempted to start an International KEWDOS/80 Users' 
Group last year. My original intention was to coordinate the group 
from my location, issue a newsletter, and possibly distribute a 
diskette containing public-domain NEWDOS/80-specific programs 
and/or text files containing patches, etc. 

I had visions of getting perhaps 100 inquiries from the 
publicity Northern Bytes gave me in the Spring of 1984. This did 
not happen. 

I had letters from Australia, Japan, Spain, Canada* and even 
the U.S.A., but these totalled fewer than ten. I also had three or 
four people logon to my BBS from the U.S.A. 

So I felt the support was NOT great, and had been dragging my 
heels on doing anything further with the group idea. My intention 
was to ignore it and hope it went away quietly. However, my 
experience with Jerry Vabulas from New York City kept getting in 
the way- 
Jerry logged onto my BBS, and we exchanged a number of 
messages about NEWDOS/80 Version 2.5, which I did not use at that 
time, He was even good enough to send me a diskette with a few 
patches he had developed. I, in turn, did nothing with them. 

Finally, for the previous issue I put together some thoughts 
and ideas for the future. I also shared my commented disassembly 
of BOOT/SYS for the Model I Version 2.0 and some ideas about 
enhancements this commented code could allow. As well, I sought 
answers from you people on a re-boot problem many Model I owners 
seem to have. 

This second column continues on that theme, and I hope it will 
be a productive tool for NEWDOS/80 users. 

I have also opened a section on my BBS for the International 
NEWDOS/80 Users' Group. The section has a message base, and a 
download area for programs and text files. The text of these 
columns is also stored there. 

We now have at least 55 active boards in the Toronto area, so 
EBSjng tends to be a little hectic from time to time and the 
"children" try to take their toll on serious boards, 

Because of this, you MUST read the board policies and 
register online to obtain full access. This takes 7-10 minutes. I 
am at present only running at 300 bps but hope to have a 1200 or 
maybe even a 2400 bps modem shortly. 

By the time you read this I hope to have devised a method to 
allow Northern Bytes readers access to the section without a long- 
drawn-out preamble. More details will be in the next column. 

Apparat also appears to have "increased" its support of 
NEWDOS/80. It recently announced a Profile 3 Plus Upgrade for the 
DOS, and stated it would continue support of NEWDOS/80 Version 
2.0 £ 2.5. The details include its technical support and update 
service as outlined in the manual. 

As well, Apparat made this announcement' 

■2* -HOUR DATA-LINE 

"Apparat's TBBS »1 of Denver Electronic Bulletin Board now 
offers a NEWDOS/80 support section. Register for support on your 
first call, we will try to get your registration active on the 
NEWDOS/80 support section within a week. Call (303) 741-4071." 

At this writing, I have logged onto their board but my 
registration has not yet been activated (see sidebar). 

As promised in the last issue, the theme of this issue's 
column is the theory behind, and the formulation of, ZAPs or patches 
to NEWDOS/80. The discussion will not be limited to the DOS alone 
but will give even the rank amateur enough background in preparing 
and installing simple ZAPs to become just slightly dangerous to his 
disks. 

First, a disclaimer! 

ALWAYS, ALWAYS, ALWAYS work on COPIES of backup disks, 

NEVER, NEVER, NEVER work on your backups or your working 
copies or your masters. 

NEVER, NEVER, NEVER test a ZAP with ANY live data or 
programs online. 

None of us will take any responsibility for your lost data or 
programs or disks or hair if you disobey this simple rule. I used to 
ignore this rule frequently, but got fed up with having to re-create 
working copies and hard-drive directories. 

I trust I have made my point! 

ZAPs for the DOS and many programs can be found in 
magazines, newsletters and on BBS's and commercial networks. Or 




APPARAT'S TBBS - AN ACT NOT QUITE TOGETHER 

In the accompanying column I make reference to 
APPARAT's TBBS #1 of Denver Electronic Bulletin Board. 

I have now made contact, after a fashion. I first called 
around 6 AM on March 11, 1985. The transmission was 
atrocious but I persisted. After re-reading many menus two 
or more times I was able to register for the NEWDOS/80 
support section and log off. 

I called back seven days later, again around 6 AM. This 
time I listened to the incoming modem carrier and felt it was 
weak — but the line was clean so I connected and was 
rewarded with a seemingly good transmission. 

After the initial logon messages I was at the Main Menu 
and garbage transmission again. I was able to make my way to 
the NEWDOS/80 support section and was dismayed to see that 
I was NOT recognized as having registered previously. 
Apparat said in their recent press release, ".... we will try to 
get your registration active ... within a week," 

Obviously this is not always possible, I feel that an 
organization that truly wants to offer support should be able 
to allow their (previously) paying customers access to the 
support section without this type of delay. It is simply a 
matter of priorities. 

CI also would be interested in other users experience 
with Apparat's carrier signal strength.] 

I will continue logging on to the Apparat BBS but would 
suggest you wait longer than one week and also that you 
ensure the signal strength and line quality are excellent 
before trying to complete your connection. Otherwise you will 
merely be wasting your time and money. 

- Greg Small 



they can be generated by you. I know, I know, you «ay you know 
nothing about machine code. Well, sit tight. That's what thiff is all 
about. 

Once the ZAP is either discovered or written it MUST be 
tested. Your system may not be 100% identical to that of the 
author of the patch. The source of the patch may not have provided 
ALL the necessary parts of the ZAP or they may be incorrect. Thus 
the need for testing — on a COPY of your working diskette. 

To install and test a ZAP there are just a few simple steps. 

First, we make sure the patch is for the version cf the 
program or DOS you are using. Next, we protect ourselves from 
doom. 

The safest method is to use the COPY command with the BDU 
option to make copies of any working diskettes that will be involved 
in the testing of the ZAPs. To copy your working SYSTEM diskette 
to a blank diskette in drive 1 you would issue the following 
command: 

COPY.0, 1 „„FMT,BDU t DPDN*0<CR> 

wh«re <CR> means press your ENTER key. 

This will format the diskette in drive 1 and make an EXACT 
duplicate of the diskette in drive 0. The files DIR/SYS and 
BOOT/SYS will be copied exactly from the source to the 
destination. This type of COPY can now be done for any other disks 
needed for the tests. 

If , later, a patch fails and causes damage to a sector or file, 
or to BOOT/SYS or DIR/SYS on the copy of the working diskette, it 
will be a simple procedure to use SUFERZAP to copy over « few 
sectors from the working diskette to the copy of the working 
diskette and all will again be ready for continuation of the testing. 

Finally, a little exh-a bit of safety for you hard-drive users. 

If you run your hard drive from floppies, make a special TEST 
SYSTEM diskette that defines a very small portion of the drive as 
the ONLY live part of the drive. 

If your BOOT floppy transfers SYSTEM control to the hard 
drive make a special TEST BOOT diskette that defines a very small 
portion of the drive as the ONLY live part of the drive. You mu*t 
have the SYSTEM on that test drive if you expect to run strictly 
from the hard drive. 

Then, if a patch fails, you will not have the heads writing 
myriad patterns across the full 5 or 10 (or more) meg drive. 

(Note that it is NOT easily possible to copy a hard drive 
DTR/SYS to another filespec on the hard drive, But it is possible to 
copy it from the hard drive to a floppy. I have a special /JCL file 
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that I run regularly that backs up all DIR/SYS'». Then if a 
DIR/SYS goes bad it is a simple process to SUPERZAP the sectors 
needed from the floppy to repair the hard drive.) 

Next, a list of the tools we will need for any ZAP creation. In 
brackets are the specific tools I use: 

- a monitor (TASMON/CMD) 

- a list of Z-80 opcodes (How to Program the 180 by Rodnay Zaks - 
available from Radio Shack * 62-2066) 

- an intimate knowledge of the operation of the program to be 
patched. This is critical for easy creation of ZAPs. 

The following are useful but NOT essential! 

- a diskette zapper (SUPERZAP/CMD) 

- an editor assembler (EDTASM/CMD) 

- a disassembler (DI5ASSEM/CMD) 

- a byte finder (FDTOLOC/CMD) 

- a word processor (SCRIPSIT/CMD) 

With the preliminary setup and list of tools out of the way wi 
can get on to the generation of a ZAP of our own. The ZAP I outline 
below was created to solve a specific problem I had. This may be 
useless to YOU but will serve to illustrate how easily a ZAP can be 
created. 

To help pay for this hobby I maintain the mailing list of a 
charitable organization on one of my Model I's. I wrote the 
programs needed in BASIC using NEWDOS/80. As the list grew I 
found that a certain amount of file reorganization was going to be 
required so I wrote a program to sift a file of names into many 
other files. 

When I first got a disk system I felt that the maximum of 15 
files allowed by TRSDOS and all the other DOS's was slightly 
ridiculous. Who could ever need all those files? However, I now 
found myself needing 16 files. I rewrote the program to do the task 
in two passes and forgot about the limitation. 

A year later I was faced with a similar task. This time I 
decided I would investigate a little further, as the time required for 
the previous run was excessive because of the need for the double 
pass. 

Following is the thinking I used to prepare my plan of attack! 

1 - If BASIC is invoked without any parameters three files 
are allocated. 

2 - If BASIC is invoked with a parameter from to 15 then the 
parameter is assumed to be the number of files to be allocated, 

3 - If BASIC is invoked with a parameter less than or 
greater than IS, and the parameter is NOT analyzed and found to be 
a valid memory size, then an exit to DOS READY is taken. 

4 - If I could find an exit to DOS READY, then the code prior 
to it would most likely be a check for a request for allocation of 
more than 15 files. 

5 - There are, however, other exits to DOS READY in 
BASIC/CMD. If we enter BASIC * an exit to DOS READY will be 
taken if HIMEM is set differently than it was during the previous 
run. 

(Any single references to memory locations or disk file 
locations are for both Model I and III. If the references are 
different, then the Model III reference is given in square brackets 
after the Model I reference, thus! 6543H C6521H3.) 

Next I loaded TASMON and relocated it to high memory, d 
could have used a previously relocated copy that had been relocated 
and DUMPed earlier.) I then used the LD command of TASMON to 
load BASIC/CMD. The specific command was! 

LD<CR> 
BASIC/CHD<CR> 

TASMON reported that BASIC/CMD resided from 5700H 
through 684DH and that the entry point was 66BEH. 

I did not want to have to disassemble the entire BASIC/CMD 
to a printer and then manually search through and comment the code, 
so decided to use a little logic — and the machine. (Besides, this 
article is supposed to show how a non-assembly language type can 
do this sort of thing with a little bit of logic and reading of tome 
references. I do not specifically refer to Zak's book in this 
discussion but if you are not familiar with Z-80 opcodes you will 
find yourself using it to look up the hex byte(s) that represent the 
various instructions or to determine what an instruction does.) 



- If BASIC 16 is used to invoke BASIC we end up at DOS READY. 

- DOS READY is defined as 402DH in section 3.2 of the manual. 



If I could find a reference to 402DH in the code. I might be 
somewhere near where the maximum number of files test is made. 

Using the FIND command of TASMON, I searched (starting at 
5700H, as that is where TASMON reported BASIC/CMD started) for 
the byte combination 2D 40. (The Z-80 reverses byte pairs). The 
specific command was! 

F 5700 2D 40 <CR> 

The only reported location of this was at 57CAH. Using the 
disassemble command of TASMON, I disassembled the code, starting 
at 57C3H, as I wanted to see a little of the code prior to this 
address. 

I found the following code and added the comments! 



57C3 


7E 


LD 


A,(HL) 


iget a byte in A 


57C4 


FE53 


CP 


53 


Us it an "S-? 


57C6 


El 


POP 


HL 


iget HL back 


57C7 


2003 


JR 


NZ.57CC 


Hump around if not "S 1 


57C9 


C32D40 


JP 


402D 


(jump to DOS READY 



I could see that this was most likely the test for the "S" in 
the CMD'S" command from BASIC, But using the FIND command 
again showed it is the ONLY reference to DOS READY in 
BASIC/CMD so I proceeded a little further. 

The bytes at 57C9 are a jump to DOS READY, so I searched for 
references to those bytes. TASMON reported they were found at 
6FDEH C64B7H], 64E6H tMBFHl, 6538H C6531H3, and 673EH. 

I noted that the entry point to BASIC is not at the beginning 
of the file (as is usual for most TRS-80 programs) but at 66BEH. 
Presumably, this is some sort of setup routine. 

So my examination was started at 673EH. Disassembling and 
examining the code around that address showed the following, with 
the comments again added by me! 



6722 FE10 
6724 3017 



CP 
JR 



10 (Compare to 16 

NC673D {jump to 673D if CARRY not set 



673D C3C957 JP 



57C? 



[jump to the jump to DOS READY 
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I had found a place where a compare was occurring. The value 
was near the value of the maximum number of files. I had found a 
place to test. 

I recorded the address (6723H) of the 10H (or 16), which I was 
assuming was the maximum number of files plus one . I then exited 
to DOS READY and typed DEBUG<CR>. At the next DOS READY 
prompt I typed! 

BASIC 16<CR> 

and promptly entered DEBUG as expected. Once there I typed 
M6723<CR> which put the modify cursor over the 1 in the 10. I 
changed the 10 to 11 and pressed ENTER. I then typed G<CR> and 
was rewarded with the normal BASIC herald. 
The test! I typed! 

OPEN"!" , 16, "BOOT/BYS"<CR> 

and was rewarded with BASIC'S familiar READY prompt - not an 
error message. I then modified an existing BASIC program by 
changing all references to buffer 1 to read buffer 16. I 
experimented to prove that buffer 16 actually existed and was in 
use and that all the other buffers worked as expected. All seemed 
well. 

The next task was to find the maximum number of buffers that 
could be created and used. I played with various numbers and 
discovered it was possible to have 128 buffers in a 48E floppy 
system with HIMEM set at FFFFH. However, this is extreme! For 
all practical purposes 100 buffers seems to be the maximum that 
should be allocated, to allow for some programming space. 

Finally I had to write a file to document this ZAP. You may 
not feel this is necessary, but believe me, if you do NOT do it you 
will surely discover later that you need it. 

I had to determine where on diskette this patch was to be 
applied. I knew it was to go at 6723H in memory. I also knew that 
the sequence of bytes around the ZAP was FE 10 30 17. 

I invoked SUPERZAP and typed DFS<CR>. At the next prompt 
I entered BASIC/CMD<CR> followed by 0<CR>. I then typed 
L,FE,10,30,17<CR>, which is SUPERZAPs locate command, followed 
by the bytes I was seeking. The find cursor appeared at byte 66H 
C3FH3 of relative sector 16. So I had a possible ZAP location. To 



verify that it wu the correct location, I typed F<CR>. Mo other 
matches were found. 

Now, a far simpltr method it to type) 

FIHDLOC BASIC/CMD «723<CR> 

Tht result looks like this! 

FMLOC - W.I (c) WE fab Wtiwrt 

LociU tddrtit ■ 4723 

File rtlativi «Ktar ■ U (DtciMl), II (Hm) 

few displacement > in (Dsciwl), 47 (lex) 

DyW divlttmsnt ■ M (OsciMl), 41 (Hm)] 

I found that * lot simpltr than tht StTPERZAP mothod. 
(FINDLOC/CMD it, or will toon bo, availablt on ■ TAB Public 
Domain Ditk. It hat alto boon availablt on tome of tht CompuServe 
SlOt and it availablt in tht NEWDOS/80 Uttrt' Group arta on TBBS 
- Tht Business Board System (416) 640-3434.) 

APFARAT ttt tht standard for documentation of a ZAP. I 
followed thtir ltad. 

Firtt, we prepart tht Modal X ZAP by naming and dating itt 



**••***« BASIC 1 #«#»§##« 03/07/85 ###•#•*« V2M1 #**#*#•# 

Naxt wt dttcribt the purpote and function of tht ZAP! 

This patch onablet mora filet than 15 on Modal I 
NEWDOS/80 Vtraion 2 BASIC 

Now wt documtnt the actual ZAP) 

BASIC/CMD 16,66 

changt FE 10 30 to FE xx 30 

And finally wt add tht exxnmentary about the value to inaertt 

Tht valua used to raplaca xx mutt ba ont mort than 
tht maximum numbtr of filtt rtquirod and cannot 
bt grtattr than 81 H in a 48k tyttem and, for all 
practical purpotaa, thould not ba grtattr than 64H, 
btcautt it rattrictt programming tpaea. 

Following it tht complttt ZAP for tht 1 and tht III. Alto 
indudtd it a ZAP to changt tht default numbtr of filtt from 3 to a 
numbtr taltcttd and patched into BASIC. 



BASIC 1 ##•#*#*• 03/07/85 ##•#•*#* V2M1 •#••*«• 



Thi* patch tnablat mort filtt than 15 on Model I NEHDO8/80 
Vertion 2 BASIC 

BASIC/CMD 16,66 

changt FE 10 30 to FE xx 30 

Thit patch tatt tht default numbtr of filet on Modtl I NEWDOS/80 
Vtriion 2 BASIC 

BASIC/CMD 14,46 

changt 3E 03 32 to 3E yy 32 

Tht valut uttd to raplaca xx mutt bt ont mort than the maximum 
numbtr of filtt raquirtd and cannot be graattr than 81H in a 48k 
tytttm and, for all practical purpott*, thould not bt grtattr than 
64H, btcautt it rtttrictt programming apaca, 

Tht valut uttd to rtplact yy thould bt tht dtfault numbtr of filtt 
to bt allocatad whtn BASIC if invoktd, 



ttttttt* BASIC 1 ***##••» 03/07/85 ###**•#• V2M3 •##»»*#• 

Thit patch tnablat mort filtt than 15 on Modtl m NEWDOS/80 
Vtrtion 2 BASIC 

BASIC/CMD 16.3F 

changt FE 10 30 to FE xx 30 

Thit patch tttt tht dtfault numbtr of filtt on Modtl III 
NEWDOS/80 Vtrtion 2 BASIC 
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BASIC/CMD 14,1F 

changt 3E 03 32 to 3E yy 32 

Tht valut uttd to rtplact xx mutt bt ont mort than tht maximum 
numbtr of filtt requirtd and cannot ba grtattr than 81H in a 48k 
tytttm and, for all practical purpotts, thould not bt greater than 
64H , btcautt if rtttrictt programming apaot. 

Tht valut uttd to rtplact yy thould bt tht default number of 
filaa to bt allocatad whtn BASIC it invoktd, 

In tht ntxt column I will providt a numbtr of ZAPt that I havt 
crtattd ovtr tht patt ftw ytart. 

I want to thank Bob Blackburn for tht tditing ht hat dont on 
thit column. Bob it a local journalist who turned to a Modtl III two 
ytart ago to rtplact hit aging Undtrwood. Ht hat now ttarted an 
onlint tditing ttrvict using tht TBBS softwart. 

Simply, Bob's ditnts upload their "raw* text to his systam at 
thtir convtnitnet, Ht than tdita tht ttxt for stylt, clarity, sptlling 
and punctuation. Whtn ht is satisfitd with tht rttultt ht placts 
tht filt onlint again and will phont tht client to notify him tht ttxt 
is rtady for rttritval. Tht ditnt thtn can download tht ttxt, again 
at hit convtnitnet, 

Anyont wanting mort information on thit unique ttrvict can 
contact Bob at tht following! 

Bob Blackburn 
1694 Otrrard Straet Eatt 
Toronto, Ontario, CANADA 
M4L 2B2 

Phont! (416) 466-5587 (voict) 

MCI Mail! Uaername! BBLACKBURN MCI Mail ID #! 254-9871 

If you havt any tptcific rtqutttt for thit column or with to 
contact ma full dttaila art in tht latt ittut of Northtrn Byttt, Tht 
two major changes art that my MCI Mail account has finally been 
activattd and a section has been created on TBBS - The Business 
Board System for the Users' Group as outlined at tht beginning of 
this column. 

Htrt is a summary of the previous details! 

Mail! Oreg Small, Box 607, Stouffville, Ontario, Canada L0H 1L0 
Phone! (416) 640-4400 - 7PM-9PM/week nights/ 10AM-6PM/wetktndt. 
Dataline! (416) 640-3434 - 24 hours a day. 

MCI Mail! Uttrnamt! GSMALL/EAGLE MCI Mail ID •! 251-7579 
CompuStrvt Easy Flex! PPN 72335,560 

MORE ON AUTO-BOOTING A MODEL 4P 

In past months wt havt published much in these pages about 
making a stlf-booting disk for the Modtl 4P, using a DOS othtr than 
LDOS or TRSDOS. There are a couple of comments that should be 
added to this discussion. 

First, the question has been raised, how does tht Modtl 4P 
know whtthtr it is booting a TRSDOS 6 (or othtr Modtl 4 DOS) disk 
as oppostd to a Modtl III DOS ditk? Simple, tht 4P chtckt tht boot 
codt on tht ditk for a CALL OOnnH inttruction (tptdfically, tht 
bytts CD xx 00 whtrt xx can bt anything). TRSDOS 1.3 has a 
"CALL 0033H" instruction in tht boot codt, and all othtr Modtl III 
DOSts apparently also have at least ont CALL btlow 0100H in thtir 
boot codt. Modtl 4 DOBtt, on tht othtr hand, do NOT havt calls 
btlow 0100H in thtir boot codt. Simplt' 

Stcond, if you've gone and installed double-sided disks in 
your 4P, you may wonder what tht secret it to making a double- 
tided auto-booting ditk. Well, both LDOS and TRSDOS ute rtlativt 
byte CD of the GAT sector (firtt tector of the directory) to ttore 
information about the ditk. If bit 5 of rtlativt bytt CD it ttt, that 
indicatts that tht disk is double-sidtd. NEWDOS/80 dotsn't use 
that byte, so it just puts a zero byte there. If you used a method 
similar to the one described in Tony Domigan's letter in NORTHERN 
BYTES, Volume 6, Number 2 (page 3) to attempt to create a double- 
sidtd stlf-booting NEWDOS/80 disk but had no success, try zapping 
rtlativt bytt CD of tht dummy directory (tht ont that is part of tht 
crtattd MODELA/III filt, not tht rtal ont uttd by NEWDOS/80) to 
FFH (all bits set, including bit 5). Unfortunately, I am unable to 
actually try thit because I do not have acceat to a Model 4 with a 
double-sided drive zero. 

Credits! Thanks to John Hallgren, Jon Yardtn, and JJu 
INTERFACE (newsletter of the San Gabriel Valley TRS-80 Users 
Group) for providing bits and pieces of the above information. 



nX5AT,/A?W fQR MODEL, III NEWDOS/IO^VERSIOK 2, 
by "Tony Bonugan " -'*"*-"" ' 

This routine is designed to correct the Granule Allocation 
Table of KEWDOS/80 version 2 diskettes. As I explained with my 
previous routine to fix the HIT sector, Super Utility plus will do a 
far better job than my routine, however, SU+ does not support 
Double-Sided NEWDOS/80 configurations. This routine, however, 
will work similarly with mono and double-sided NEWDOS diskettes. 

As with FIXHIT/ASM, FIXGAT requires that the DIRectory 
should be readable by the system as it is accessed by file I/O. The 
PDRIVE settings for the drive to be tested should be correct as I 
check only the memory PDRTVE settings. A final limitation is that I 
have not included checking for non-standard track counts. If the 
track count is standard, that is, can be apportioned to a whole 
number of 'lumps' all is OK, however, if you chose say a TC of 42 or 
62, then using FIXGAT will result in an error in the last allocation 

byte. 

The Granule Existence Table (GET) proved to be an awkward 
problem for me to solve. The NEWDOS manual states that it will 
not be formed if the number of lumps exceeds 60H, however I have 
noticed that with double-sided ops the GET is fully allocated. 
DIRCHECK doesn't seem to mind whether it is initialized or 
allocated so I opted tD initialize the GET as well as the GAT. 

The command line for this program is 

FIXGAT<CR> defaults to drive 

FIXGAT dn<CR> selects requested drive number 

FIXGAT idn<CR> ......... .selects requested drive number 

Tony Domigan 
P.O. Box 150, Thomastown, Victoria, Australia, 3074. 

MCI-ID i 234-5121 





•mo ; 




FIXGAT/ASM- 


Version 1,0 




oono ; 




NDD0S81AI2 (HI) 




10121 ; 




3rd (torch 1985 




10130 ; 


For NORTHERN BYTES i the PUBLIC DOMAIN 




oono ; 




03 Tory Donigen 




10150 ! TO Box 150, 


Thonastoun, 


Victoria, 3171, Australia 




00160 !NCI-ID:251-5121. SOURCE-m:BCT039. t«-d:mmipowkd*! 




00170 ; 










10180 ; 








5200 


11190 

Ik AAA A » 


ORE 


52IIH 


{Anywhere ibv 5210H 




00210 , 




ltal run UKivcsrt^ - 


5200 


00210 PARSER 


EOU 


« 




5200 7E 


01220 


LO 


A,(HL) 


{Trailing chars? 


5201 FE0D 


00230 


CP 


0DH 


{Assune drive 0? 


5203 2002 


01210 


JR 


HZ, ON 


{Yes, print nsg 


5205 3E30 


00250 


LD 


A.3DH 




5207 FE3A 


01260 ON 


CP 


3AH 


i Colon 


5219 2002 


10270 


JR 


NZ.NUKCR 


[Skip if not colon 


521B 23 


10280 


DC 


ft. 


{Yes, colon so ck next 


520C7E 


10290 


LD 


A,(HL) 


iCet next character 


520D FE31 


10311 IUCER 


CP 


3* 


J> Drive 3? 


521F 3001 


10311 


JR 


NC.BADNUH 


{Yes, bad drive umber 


5211 FE30 


10321 


CP 


31N 


i>Mand<=3 


5213 3005 


11330 


JR 


NC.POSTTJR 


[Yes, use drive nunber 


5215 3EA0 


01311 BADNUn 


LD 


A,1A1H 


{Illegal drive nunber 


5217 C309U 


10351 


JP 


H09H 


{Error exit 


521A 320455 


00360 POSTDR 


LO 


(DRIVE), A 


[Post drv nm to FEB 


5Z1D 327051 


10371 


LD 


<DRVNUM),A 
rAi ni att p 


{Post drv nun to banner 




10380 ! 




UflLLULnlt rimxn. ruknibn 


5220 D630 


00390 CALCS 


SUB 


31H 


(Convert to Binary 


5222 21IA00 


00100 


LD 


ft,100AH 


{Gap between PDRIVES 


5225 CD374C 


00111 


CALL 


1C37H 


{NEHDOS Multiply Rtne 


5228 3E91 


10120 


LD 


A,PDRIVE 


ILSB FORM address 


522A85 


11130 


ADD 


A,L 


{Adjust Pointer 


522B if 


oono 


LD 


L,A 


ilsb of pointer 


522C 2612 


01150 


LD 


H,12H 


|nsb of pdrive 


522EE5 


10160 


PUSH 


ft 


{Save tdn pdrive ptr 


522F D0E1 


00170 


POP 


K 


JXfr it to K 










5231 DD7E0C 


00180 , 

0O190 PTOIR 


LD 


- KLlKlLVt VI 

A,(n+«) 


{Directory 


5231 32C755 


00500 


LD 


(DIRPThA 


{Store it 


5237 21EF54 


00510 


LD 


ft.NDIR 


{Convert to.. 


523ACDD711 


01520 


CALL 


H07H 


{ASCII string 


52X DO7E01 


1O530 SUMLMP 


LD 


A,(IX+1> 


{Total limps 


5210 32C855 


00510 


LD 


(LUMPS), A 




5213 21AC51 


00550 


LO 


ft.ftUHP 




5216 CDD7M 


00560 


CALL 


HD7H 





5219 DD7E13 


10570 TCOUNT 


LD 


A,(IX+3) 


{Track count 


521C 32C955 


10588 


LD 


(TC),A 




521F218D51 


11591 


LD 


HL.NTC 




5Z52CDD711 


11611 


CALL 


W7H 




5253DD7EI1 


•1611 SPTNO 


LD 


A, (DM) 


{Sectors/track 


525B32CA55 


11621 


LD 


(SPT),A 




525B 219951 


11631 


LD 


HL.NSPT 




52XCDD711 


11611 


CALL 


H)7H 




3261007E15 


11651 GfLVAi 


LD 


A,(IX+5) 


{Grans per lunp 


5261 32CB55 


11661 


ID 


(GPL), A 




5267 F5 


IM7I 


PUSH 


AF 




5268 21C951 


11680 


LD 


HL.NCPL 




526BCD07H 


11691 


CALL 


YD7H 




526EF1 


11710 SDIR 


POT 


AF 




526FF5 


11711 


PUSH 


AF 




5271 6F 


11721 


LD 


L,A 


{Place GPL in HL 


5271 2611 


11731 


LD 


H.0OH 




5273DD7E10 


11711 


LD 


A,(IX+0> 


{D1R lunp 


5276 CD371C 


11751 


CALL 


4C37H 


{Multiply gplxdir 


5279 3E05 


11760 


LD 


A.I5H 


{5 Sectors/gran 


527B CD391C 


11771 


CALL 


1C39H 


{5xtotel grans 


527E EB 


11780 


EX 


DE,HL 


{See string nunber 


527F21F351 


11790 


LD 


HL.DIRS 


{Dtst string 


52B2C00211 


tnti 


CALL 


UD2H 


{Post to Message 


5285 Fl 


11811 


POP 


AF 


{Restore GPL 








MAKE STARTDC GRAN. ALLOC. BYTE — 








52B6 17 


11831 FGA6 


LD 


B,A 


{LoojHTL 


52B7 3EFF 


01819 


LD 


A,0FFH 


{All Allocated byte 


52B9 CB27 


11850 FGLOQP 


SLA 


A 


{Zero gran 


528B 10FC 


11860 


DJNZ 


FGLOOP 


{Low til GPL 


5280 32CC55 


11870 


LD 


(GAB), A 

nTCOl AV LU1V 


{Post initz byte 




10881 ! 






5290 CDC901 


00891 BANNER 


CALL 


I1C9H 


{OS 


5293 215251 


10900 


LD 


ft.BANMSC 


JPt tomg 


5296CD67H 


10910 


CALL 


U67H 


{Display mg 








rvm nTOWQ nc mfru&im mmr — 


5299 211158 


IQYZV f 

10930 OPEN 


LD 


urcn uuvsia 
ft,BUFFl 


{FCB buffer 


529C 11CE55 


10910 


LD 


DE,FCB 


JPt to m FCB 


529F 1611 


01950 


LD 


B.IDH 


|LRL*ull sector I/O 


52A1 CD21H 


10960 


CALL 


H24H 


{OPEN DDVSYS 


52A1 C21951 


01970 


JP 


HZ.EREXrr 


{ZHto error 


52A7 3A0A55 


00780 


LO 


A,(LEN> 


{File length fron FCB 


52AAD602 


00990 


SUB 


I2H 


{Ra Count^OF-HTT 


52AC1F 


01001 


LD 


C,A 
SETUP POINTERS 


{Post page counter to C 




01010 { - 






52AD 0608 


01120 SETUP 


LD 


B,18H 


{FPDE Slots 1-7 


52AF EM3C355 01130 


LD 


(PCOUNT),BC 


{Store slot/page 


52B3 CD2151 


oinu , 

01050 DOT 


CALL 


POSITION TO HI i sckiun 
REM) JRead GAT sector 


52B6 111159 


11160 , 

11171 SETTJUF 


LD 


DE,BUFF2 {Dest^ewGAT 


52B9 011001 


11080 


LD 


BC1I0H 


{Move sector 


52BC C5 


11190 


PUSH 


BC 


{Save count 


52B0 EDB0 


•1110 


LOIR 




{Hove it 


52BFC1 


OHIO 


POP 


BC 


{Restore Count 


52C1EDB0 


11121 


LOIR 


DDCD Al 1 W TAfi. 


{Hove also to OldGAT 

i r ■ 




11131 { 




nOX ALLUL lflBu. 


52C2 211159 


11110 


LD 


HL.BUFF2 


{NeuGAT 


52C5 3AC855 


11150 DOALLO 


LD 


A, (LUMPS) 


{Lamp Count 


52CS FE61 


11160 


CP 


6DH 


{Existence Table? 


S2CA3818 


11170 


JR 


CDCTZ 


{Yes if carry 


52CC 3ECA 


11181 BIG 


LD 


A.0CAH 


{No existence table 


52CE 32F752 


11190 


LD 


<SEE+1),A 


{pott to fill rtne 


52D1 32CD55 


11210 


LD 


(FLAG), A 


{Save BIG flag 


52D1 CDE852 


11210 INtn 


CALL 


DC 


{Init Allocation Table 


52D7 3ACD55 


01220 


LD 


A, (FLAG) 


(Big flag 


52DAFE00 


01230 


CP 


ItH 


{GET? 


52DC2036 


11211 


JR 


NZ.SMWr 


{Skip if no GET 


52DE 3E6C 


11251 


LD 


A.6CH 




52EI 32CD55 


•1261 


LD 


(FLAG), A 


SHo-nore flag 


52E3 32F752 


11270 


LD 


(SI2E+1),A 


{Post to fill rtne 


52E4 18DD 


11281 


JR 


DOALLO 


{Do GET 


52E8 3ACC55 


11290 DC 


LD 


A, (GAB) 


{Forned init alloc 


52EB 321F53 


01310 


LD 


(PBL00P+1),A 


{Place in loop 


52EE 3AC855 


01310 


LD 


A,(LUHPS) 


{Nunber of Lues... 


52F1 17 


01320 


LD 


B,A 


{into loop counter 


52F2 C5 


01330 


PUSH 


BC 


{Save lunp counter 


52F3CD1E53 


11311 


CALL 


PBLOOP 


{Do unallocated GAT 


52F6 3E61 


11351 SHE 


LD 


A,61H 


{Standard GAT 


52F8C1 


11360 


POP 


BC 


{Restore counter 


52F9 18 


01370 


LD 


C,B 





14 



52FA0400 


01381 


U> 


B.OOH 




53B9F6 


02170 


DEFB 


0F4H 


( 6 




52FC 5F 


11390 


LD 


E,A 




53BAFE 


12200 


DEFB 


0FEH 


! 7 




52FD 1611 

52FF ES 


11400 


LD 


D.OOH 
DE,H. 










BAC^^m^l Tft ftei^\ 






11410 


EX 




536B 


02220 NXSLOT 


EQU 


* ruuillin IU RAi rnuc ojui jn nix 

* 




5311 ED42 


11420 


sec 


HL,K 




53BB FDE1 


12230 


POP 


iy 


(Reitore rTDE ptr 




5302 70 


01430 


LD 


A,L 




53BD 112001 


02240 


LD 


0E,32 


ISlotCep 




5303 EB 


01440 


EX 


DE,HL 




5391 FD19 


12250 


ADO 


iy,de 


(Men FPDE 




5304 17 


11450 


LD 


B,A 


Slow vil 


5372 15 


12260 


DEC 


B 


(Slot count 




5315 3EFF 


01440 


LD 


A.OFFH 


(Allocated byte 


5393 C22233 


12270 


JP 


HZ.FPDE 


(Loop til end of peee 




5317 32IFS3 

530ACD0E53 


01470 
11480 


LD 
CALL 


(P9LOOM),* 
PBLOOP 


(Place In loop 
(Hake teble 








_ 1 nnp CHD M 1 R 






5396 ED4BC555 02270 NXFPDE 


LD 


BC,(PCOUNT) (Page/Slot count 




530DC7 


01490 


RET 






539A0O 


12310 


DEC 


C 


(Next FPDE 




530E3600 


01500 PBLOOP 


LD 


(HL),00H 


(Fill byte 


537B ED43C555 02310 


LD 


<PCOUNT),BC 


ISeve Pointeri 




5310 23 


01510 


DC 


HL 


fine Tablt pointer 


539F C21753 


02320 


JP 


KZ.PAGE 


(Loop for rm piqei 




5311 10FB 
5313 C? 


01520 
11530 


DJN2 
RET 


PBLOOP 










> nMMPT nn i i 








53A2 


12340 hTTCK 


EOU 
LD 


« 

TV ■■•MJ •». — — i-u —A 












53AZ DDZlOOOi vwi 


IX.IIten 


tnui iHicn coufnvr 




5314CD2454 


01550 SPOT 


CALL 


READ 
■ bpt^u i nnD a 


(Read HIT itctor 


53A4 211059 
53A9 11I05A 


02360 
02370 


LD 
LD 


HL.BUFF2 
DE.BUFF3 


(Nm GAT teble 
(Old GAT teble 






Plaov f "■ 








5317 ED4BC355 01570 PACE 


LD 


BC(PCOUNT) 


(Page/Slot Count 


53AC 0600 


02380 


LD 


6.00H 


(254 bytes 




531B FD210058 01580 


LD 


IY,BUFF1 


(FPDE pointer 


S3AE 1A 


02370 CKLOOP 


LD 


A,(DE) 


(Get old GAT code 




531F CD2454 


01590 


CALL 


READ 


(Read fpde pege to buffi 


53AFBE 

B7>*Vte. Man 


12400 


CP 


(HL) 


(CoMptre with new 










LOOP FOR 8 FPDE auiis rtn rrut rnuc — 


53B0 2802 


02410 


JR 


Z.SAHE 


(Skip if the tene 




5322 FDE5 


01410 FTOE 


PUSH 


IY 


Isevs FPDE pointer 


53B2 DD23 


02420 


DC 


IX 


(Bump error count 




5324 FD7E00 


01420 


LD 


A,(IY+0) 


[First byte of FPDE 


53B4 23 


02430 SArt 


DC 


HL 


(Next new CAT code 




5327 E490 


01430 


AM) 


91H 


IHesk for alloc FP/FXDE 


S3B5 13 


02440 


DC 


DE 


(Next old CAT code 




5329 FEOO 


01440 


CP 


00H 


{Not illocited? 


S3B6 10F6 


12450 


DJC 


CKLOOP 


(Loop for whole teble 




532BCA8B53 


01450 


JP 


Z.NXSLOT 


{Skip if no filt 


53B8 DDES 


02460 


PUSH 


a 


(Hove error count 




532E 111400 


01440 sum* 


LD 


DE.22 


|Relbyte22H 


53BAD1 


02470 


POP 


DE 


(toDE 




5331 FD19 


01470 


ADD 


IY,DE 


JPt to firtt extent 


53BB 7B 


02480 


LD 


A,E 


(Errors elHtys <254 




5333 1400 


01480 SLOTCK 


LD 


D.lfH 


(ZeroD 


53BC21FA54 


02470 


LD 


HL.ERRNUn 


(Point to error nut t 




5335 D0210J59 11490 


LD 


n,am 


INewCAT 


53BF F5 


02500 


PUSH 


AF 


ISeve error count 




5339 218353 


01700 


LD 


HL,GTABLE 


(SET Ttble 


5X0CDD744 


02510 


CALL 


44D7H 


(Used to string 




533CFD7E00 


01710 


LD 


A,(IY+0) 


(Starting Lump 


53C3 21FA54 


02520 


LD 


HL.ERRNUH 


(Point to error net 




533FFEFF 


01720 


CP 


OFFH 


(None? 


53C6CD6744 


02530 


CALL 


4467H 


(Display rem errors 




5341 CA8B53 


01730 


JP 


Z.NXSLOT 


(Skip if m 


53C9F1 


02540 


POP 


Af 


(Restore nw errors 




5344 FEFE 


01740 


CP 


0FEH 


(FXDE? 


53CAFE00 


02550 


CP 


00H 


(No errors? 




5344CA8B53 


01750 


JP 


Z.NXSLOT 


(Skip if m 


53CC 2850 


02560 


JR 


Z.CLOSE 


[Yet, onit fix rtne 




5349 5F 


01740 


LD 


E.A 


IDE ■ Lump 


53CE 211955 


02570 


LD 


fLffonrnHT 


(Fix Y/N Hs? 




534ADD19 


01770 


ADO 


B.DE 


(IX * Lump poi in CAT 


S3D1 CD4744 


02580 


CALL 


4447W 


(Display m 




534CFO7E01 


01780 CCOJHT 


LD 


A.(IYtI) 


(Allocation 


53D4 CD4900 


02590 


CALL 


49H 


IKBHAIT 




534FF5 


01790 


PUSH 


AF 




53D7F620 


02600 


OR 


20H 


(Cvrt to 1/C 




5350 E41F 


01800 


AM) 


1FH 


(Mask for No. vent 


53D9 FE79 


02610 


CP 


77H 


(set? 




5352 3C 


01810 


DC 


A 


I Real grans 


53DB2808 


02620 


JR 


Z.YES 


(then fixit 




5353 4F 


01820 


LD 


C,A 


(Save in C 


53DC 217555 


02630 NO 


LD 


HLrMHSG 


(Abort m 




5354 Fl 


01830 CSTART 


POP 


AF 




53E0 CD6744 


02440 


CALL 


4467H 


(Display it 




5355 E4E0 


01840 


AM) 


0E0H 


(Hesk for stert Grm 


53E3 1839 


02450 


JR 


CLOSE 


(JP over write rtne 




5357 07 


01850 


RLCA 




(Convert.. 


53E5 215055 


02640 YES 


LD 


HLiWHSG 


(Write Message 




5358 07 

5359 07 
535AF5 


01840 
01870 
01880 SGLOOP 


RLCA 
RLCA 
PUSH 




! to 

! binary 


53E8CD6744 


02670 


CALL 


4447H 


(Display it 




AF 


53FJ 11CE55 


02690 


LD 


DE.FCB (Pt to FEB 




535E 3AC855 


01890 


LD 


A, (GPL) 


(NuMber grant/lUMp 


53EECD3F44 


0Z700 SOF 


CALL 


443FH 


(Hove to start of file 




535E 5F 


01900 


LD 


E.A 
AF 


! Placed in E 




■mi . 




. Mir tcu urr tn 






535F Fl 


01910 


POP 


e r lOVnJ All t 

; Restore Stert 


53F1 210059 


oz/io . 
02720 HOVE 


LD 


HL.BUFF2 (Nw GAT buffer 




5340 F5 


01920 


PUSH 


AF 




53F4 111058 


0Z730 


LD 


DE.BUFFl 


(FCB buffer 




5341 BE 


01930 


CP 


E 


ILess then GPL 


53F7 010001 


02740 


LD 


BC,254 


(Bytes to Move 




5342 3805 


01940 


JR 


CSCOK 


(Skip if to 


53FAEDB0 


02750 


LDD) 




(Xfer it 




5344 Fl 


01950 ZSB 


POP 


AF 


I Restore Steck 








i B0OC1MA7 CTQ t(K OCAl^JMXI0Cl*T LaV 1 11 _^__ 




5345 AF 


01940 


XOR 


A 


(Zero A 


53FC 3ACE55 


02770 


LD 


1 ntnwL ri* rw 
A,(FC8) 


(FCB 1st byte 




5344 F5 
5347 D023 


01970 
01980 


PUSH 
DC 


AF 
K 


ISeve Grm Zero 
;Buhp GAT pointer 


53FFF401 
5401 32CE55 


02780 
02790 


OR 
LD 


01H 
(FCB), A 


(Hake reed-protect 
(AMMendFCB 




5349 5F 


01990 SCOK 


LD 


E.A 


lE'Start grm 


5404 3ACF55 


02800 


LD 


A,(FC8+1) 


(FCB 2nd byte 




S34A 1400 
534C 218353 
534F 19 


02008 

02010 
12020 


LD 
LD 
ADD 


D,0tH 

HL.GTABLE 

HL.DE 


ISETtebli 
IHL«SET bit vtl 


5407 F640 
5409 3ZCF55 


02810 
02820 


OR 
LD 


40H 
(FCB+1),A 

fceVTTt liTTU IDT 


(Do not update EOF 
(AMMendFCB 




5370 7E 02030 

5371 327753 02040 
5374 OOC800C4 02050 SB 


LD 
LD 

SET 


ill 


(Load it to A 
(Hod SET bit 
1 Allocate Grm 


540C 211058 
S40F 11CE55 
5412 0610 


IZtuO i - - 
02840 MKITE 
02850 

02860 


LD 
LD 
LD 


H-BUFFl (New GAT 
DE.FCB (DE — > FCB 
B,00H (LRL-254 




5378 Fl 


02060 


POP 


» 




5414CD3C44 


02870 


CALL 


443CH 


(Write with verify 




5379 3C 


02070 


DC 


A 


(Bump gran ptr 


5417 2805 


12880 


JR 


Z.CLOSE 


(Exit if no error 




537A OD 


02080 


DEC 


C 


(Nore Grant? 


5419 F680 


02890 EREXIT 


OR 


80H 


(Hake long err Hsg 




537B20DD 


02090 


JR 


NZ.SGLOOP 


(Yeti loop for nore 


541B CD0944 


02900 


CALL 


4409H 


(Display error nsg 




537D FD23 


02100 


DC 


IY 


(Pt to the.. 


541ECD2844 


02910 CLOSE 


CALL 


4428H 


(Close FCB 




537F FD23 


02110 


DC 


n 


( next Extent 


5421 C32D40 


02920 


JP 


402DH 


(Exit to DCS 




5381 1830 


02120 


JR 


SLOTCK 


!Ck Next Extent 














53B3 C4 


02130 CTABLE 


DEFB 


0C4H 


IBTT 


5424 


02740 READ 


EOU 


* 






5384 CE 


02140 


DEF6 


0CEH 


; i 


5424 C5 


02750 


PUSH 


BC 


(Save slot count 




5385 04 


02150 


DEFB 


0D6H 


', 2 


5425 210058 


02940 


LD 


HL, BUFFI 


(FCB buffer 




53B4 DE 


02140 


DEFB 


0DEW 


; 3 


5428 11CE55 


02970 


LD 


DE.FCB 


(FCB 




5387 E4 


02170 


DEFB 


IE4H 


i 4 


542B 010000 


02980 


LD 


BC.0000H 


(LRL-256 




5388 EE 


02180 


DEFB 


0EEH 


i 5 


542EC03A44 

15 


02970 


CALL 


4434H 


(Read sector 





5131 CI 


I3III 


POP 


BC 


(Rettore » lot count 


5132 F5 


13110 


PUSH 


AF 


IStvt trror count 


M33FE1C 


03120 


CP 


1CH 


{EOF? 


5135 CA1951 


03030 


JP 


Z,EREXCT 


(Error exit 


5WFE10 


O3O40 


0> 


1DH 


fPntEOF? 


513ACA1931 


03050 


JP 


ZtEREXn 


(Error exit 


51XF1 


13041 


POP 


AF 


(Restore trror cod* 


513EC0 


03070 KERR 


RET 


NZ 


(Continue if NZ 










513F3AD855 


03090 NRPERR 


LD 


A,(NEXT) 


|Gtt ntxt pointer 


5112 X 


03100 


DEC 


A 


|Pt to Iwt itetor rtid 


5113 E5 


03110 


PUSH 


H 


IStvt FCB ptr 


5W21AB53 


03120 


LO 


HL.RPSR 


(Sector hum 


5H7C0D711 


03130 


CALL 


HC7H 


SPott to« 


5UA219D53 


03110 


LD 


fLp NRPHSG 


ir* m 


5H0CD6711 


03150 


CALL 


H67H 


(Display it 


5150 El 


03110 


POP 


NL 


(Restore FCB ptr 


5151 C9 


03170 

03180 i 


RET 


{Continue procming 
STRINGS AND STORAGE 



5152 14 03190 BAM6G DEFH 'FIXGAT for IOO0S80/V2 - Drivt on Ttit -> 

1958 47 115120 444F72 20 1E1557111F33 

38 30 ZF 54 32 20 2D 20 H 72 49 76 45 20 4F 6E 

20 51 45 73 71 20 20 20 3E 20 
5470 30 03200 DRVNUH DEFH '0' 

517E 0A 03210 DEFB 0AH 

517F 0A 03220 DEFB MH 

5180 11 03230 STATS DEFH 'Dirt Stfts ! ' 

49 73 4B 20 53 71 41 71 73 20 3A 20 
5180 2020 03210 NTC DEFM 2020H 
518F 18 03250 DEFH 'H Trick*. ' 

20 51 72 61 43 46 73 2E 20 
5199 2020 03240 NSPT DEFM 2020H 
549B 18 03270 DEFH 'H Sectori/Trick. ' 

20 534543 714F7273ZF5172 41434B2E20 
51AC2020 03280 NLUNP DEFH 2O20H 
51AE18 03290 DEFH 'H L^*Pi/Ditll.' 

201C754D70732F4149734B2E 
5168 0A 03300 DEFB 0AH 

5«C 20 03310 DEFH ' 

20 20 20 20 20 20 20 20 20 20 20 20 
51C9 2020 03320 MGPL DEFH 2020H 
51CB 18 03330 DEFH 'H CrmfAw*. ' 

20 17 72 41 4E 73 2F « 75 40 70 2E 20 
5109 H 03310 DEFH 'DIRectors Lu*>/Seetor ' 

19 52 4543 714F7279 20 1C754D70 2F5345 
43 71 4F 72 20 

51EF 2020 03350 HDIR DEFM 
51F1 18 03340 DEFH 

2F 
51F3 2020 ' 03370 DIRS DEFH 
51F5 20 033BO DEFH 

20 18 
S1FB 0A 03390 DEFB 
51F9 0D 03100 DEFB 
51FA 20 03110 ERRNUH DEFH 

20 18 20 
51FE 17 03120 DEFH 

72 41 4E 75 4C 45 20 11 4C 4C 4F 63 41 71 49 4F 
4E20 1572724F7273 

5517 0A 03130 DEFB 0AM 

5518 00 . 03110 DEFB ODH 

5319 52 03150 HRPRHT DEFH 'Reply Y/N to Rtptir Diskette Crmult AllKition 

65 70 4C 79 20 59 ZF « 20 71 4F 20 52 45 70 41 

49 72 20 H 49 73 68 65 71 71 65 20 17 72 41 6E 

75 6C 65 20 11 4C 4C 6F 43 41 71 49 4F 6E 20 51 

41 42 4C 45 
551E 0A 03140 DEFB 0AH 

551F 0D 03170 DEFB ODH 

5550 57 03180 HRHSG DEFH 'Hriting. the Corrected GAT Sictor Now' 

72 49 71 49 4E 47 20 71 48 45 20 13 4F 72 72 45 

43 71 45 41 20 17 11 51 20 53 45 43 71 4F 72 20 

IE 4F77 
5571 0D 03190 DEFB ODH 

5575 2A 03500 NUH5G DEFH mmm ABORTING m Per Rtqunt' 

2A2A2A2A2A2A2A2A20 20 20 11121F5251 

19 * 17 20 20 20 2A 2A 2A 20 20 50 65 72 20 52 

65 71 75 65 73 71 
S59C 00 03510 DEFB ODH 
5390 H 03520 NRPHSG DEFH 'DB/SYS FRS ! ' 

19 52 2F 53 59 53 20 16 52 53 20 3A 20 
55AB 30 03530 RPSR DEFH '00 ' 



202OH 
'H/' 

2020H 
' H' 

0AH 
ODH 



'Granule Allocttion Errori' 



55AE69 


1 


03510 


DEFH. 


'it not Reed-Protected' 






73 20 6E 6F 71 20 52 65 61 61 2D 50 72 6F 71 65 






63 7165 41 














55C3 0A 


1 


03550 


DEFB 


OAN 










55C1 00 




03540 


DEFB 


0OH 










55C5 0000 


03570 PCOUNT 


DEFH 


0000H 










55C7 00 




03580 DIRPT 


DEFB 


00H 










95C8 00 




03590 LOTS 


DEFB 


00H 










S5C9 00 




03600 TC 


DEFB 


00H 










55CA00 




03610 SPT 


DEFB 


00H 










55CB 00 




03620 GPL 


OEFB 


•OH 










sax so 




03430 GAB 


DEFB 


00H 










55CD 00 




03610 FLAG 


DEFB 


00H 










0091 




03450 PDRWE 


EOU 


91H 










33CEH 




03670 FCB 


DEFH 


'DIR/SYSi' 




iFilMptC 






19 52 2F 53 59 53 3A 














55D4 30 




03480 DRIVE 


DEFH 


'0' 




(Drivespcc 






3507 OD 




03490 


DEFB 


ODH 










3508 00 




03700 NEXT 


DEFB 


00H 




(Next Mctor pointtr 


5509 00 




O3710 


DEFB 


00H 










550AOO 




03720 LEN 


DEFB 


00H 




(LSB length of file 


550B 00 




03730 


DEFB 


00H 










550C 00 




03710 LUHP 


DEFB 


00H 




(Starting lunp 




55D0 00 




03750 GRAN 


DEFB 


00H 




(Nunber of 


grans 




0010 




03740 EXT 


DEFS 


10H 




(Extents 














STORAGE BUFFERS - 
















5800 




03780 


ORG 


5800H 










0100 




03790 BUFFI 


DEFS 


254 




(FCB buff* 






0100 




03800 BUFF2 


DEFS 


254 




(New GAT CODE buffer 


0100 




03811 BUFFS 


DEFS 


256 




(Oris GAT ftctor 




5200 




03B20 


END 


PARSER 










00000 TOTAL ERRORS 














BADNUH 


5215 


BANHSG 5152 BANNER 5290 


BIG 


52CC 


BUFFI 


5800 


BUFF2 


5900 


BUFFS 5A00 CALCS 5220 


CKLOOP 53AE 


CLOSE 


511E 


DIRPT 


55C7 


DIRS 51F3 ON 


3207 


DOALLO S2C5 


DRIVE 


55D6 


DRVNUH 


5170 


EREXIT 5119 ERRNUH 51FA 


EXT 


S5DE 


FCB 


55CE 


FGAB 


5284 


FGLOOP 5289 FLAG 55CD 


FPDE 


5322 


GAB 


53CC 


CCOUNT 


331C 


GPL 55CB GPLVAL 5241 


GRAN 


S5DD 


GSTART 


5351 


CTABLE 


5383 


HTTCK 53A2 INIT 52B3 


INITZ 52M 


DE 


52E8 


LEN 


S5DA 


LUHP 55DC LUHPS 53C8 


HOVE 


S3F1 


HDIR 


5*F 


NEXT 


55D8 


HGPL 51C9 NLUHP 51AC 


NO 


5300 


NOERR 


513E 


NRPERR 


513F 


NRPHSG 3590 HSPT 5199 


NTC 


518D 


NUHBER 


5280 


NHHSG 


5575 


NXFPDE 5396 NXSLOT 539B 


OPEN 


3299 


PAGE 


3317 


PARSER 


5200 


PBUXP 530E PCOUNT 53C5 


PDRIUE 0091 


POSTDR 


521A 


PTOIR 


5231 


READ 5121 RPSR 55AE 


SANE 


53B1 


SB 


5371 


SCIR 


526E 


SETBUF 52B4 SETUP 52AD 


SGLOOP 535A 


8G0K 


5369 


she 


52F6 


SKPHIT 5311 SLOTCK 5333 


SLOTOK 532E 


90F 


33EE 


8PT 


55CA 


SPTNO 5Z55 STATS 5160 


SUHUT 5230 


TC 


55C9 


TCOUNT 


5219 


WRITE 510C HRHSG 5550 


HRPRHT 5519 


YES 


S3E5 


ZSB 


3361 

















ALLWRITE! BVG<?> 

Ht almost got bit by this ont last issue, and wanted to warn our 
readers who uu ALLWRITE! Ht publishtd an articlt entitled 
ANCHOR SIGNALMAN MARK XII DTR FIX. At the top of the parts 
list) tht following appeared! 



Table' 



1 - 2N4401 transistor 



But this part wasn't there in the final printout! Apparently a 
carriagt rtturn got ltft out, and tht ALLWRITE! formatting line 
just btfort tht parts list looked like this! 

|fooff(in+6J1170 1 - 2N4401 transistor 

You would think that ALLWRITE! would complain about a 
formatting lint like this, but it doesn't. I see that as a BUG in 
ALLWRITE!) since some really important lines of text could get 
omitted this way. The folks at PROSOFT get NORTHERN BYTES, seu, 
I hope they'll dedde to fix ALLWRITE! so that it will protest w' 
coming across lines like the one above. 

As for our last issue, we caught the bug after the master copy 
had been made, but (fortunately) before we actually printed the page 
in question. We had to make up a new master copy, but that was tht 
only damage. Had we failed to notice this, some folks might have 
wondered why their MODEM fix wouldn't work! 



30 20 
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PACKET SWITCHING NETWORKS 

Revised 4-Mar-85 

Contains former file GERMAN.TXT (modified) 

by Hans G. Michna (CompuServe I.D. 74776,2341) 

[This article was downloaded from CompuServe by Greg Small. 
I'm reprinting it here because it could be of considerable interest to 
many of our readers outside the continental U.S.A., as well as to 
those of our readers who travel overseas.] 

If you are interested in CompuServe access and file transfer 
through packet switching networks like those found in some 50 
countries all around the world - read on. I have solved the problem 
of downloading from CompuServe through DATEX-P (Germany) and 
jumped 3 meters high when it finally worked. The solution applies 
to other countries also. 

Contents! 

m QUICK INTRODUCTION 

[23 DETAILED EXPLANATION 

£33 INTERNATIONAL PAD PARAMETERS 

£42 NATIONAL PAD PARAMETERS (DATEX-P AND OTHERS) 

C53 XMODEM FILE TRANSFER 

[63 PLEASE WRITE 

C 1 3 QUICK INTRODUCTION 
If you are not interested in the details - the next time you 
enter CompuServe via a packet switching network do this! 

- Logon until you see the "User ID!" prompt. (Any time later 
than this will also work.) 

- Enter a Ctrl-P (hold down the Ctrl key and press P once). 
You are now talking to your network instead of CompuServe. 

- Enter "set 3!12M!0,5!1,9!0,12!0,U8»,119!21,120!22,125!10" 
without the quotes and press Return. 

- Press Return a second time. 

- Enter your user ID and continue as usual. 

This gives you 

- prompt response to Ctrl command characters like Ctrl-C and 
Ctrl-O, » 

- uninterrupted text uploads 

- no disturbing fill characters, 

- cheaper local PAD line editing with Backspace, Ctrl-U and 
Ctrl-7 and mostly clean lines when in an online conference. 

IMPORTANT NOTES! 

(i> Check if your network's command prefix is really Ctrl-P by 
entering Ctrl-P, then a nonsense command, then one Return. If you 
get a network error message Ctrl-P is all right. If you get a 
CompuServe message like ?XXXXXX - INVALID USER ID - TRY 
AGAIN / User ID! then Ctrl-P is wrong for you and you have to ask 
the network operator for the correct network command prefix or 
attention character. 

(2) Your computer may freeze especially after finishing a 
connection. Type a Ctrl-Q (hold down Ctrl and press Q) and continue 
normally. 

(3) See chapter — XMODEM FILE TRANSFERS — if 
necessary. 

123 DETAILED EXPLANATION 

THE SYSTEM! Connection to CompuServe is normally done in 
the following way! 

A sync Terminal or Microcomputer - PAD - Packet Switching 
Network • Gateway - CompuServe Network 

THE PROBLEM! Using a microcomputer I can hardly afford a 
direct X.25 channel to the network. So I use the public PAD (Packet 
Assembly and Disassembly) unit provided by the "Post" which 
accepts the standard async signals, 300 or 1200 bps full duplex. 
The PAD'S behaviour is the source of all potential trouble. 

Fortunately the PAD can be controlled by the user to such an 
extent that even XMODEM and similar file transfers can be 
facilitated. The standard settings, however, are completely 
inadequate, especially for binary file transfers, 

Uploading (from you to CompuServe) is more difficult than 
downloading because the PAD normally interprets some special 
characters send by your asynchronous terminal or microcomputer 
which do not occur in the other direction, e.g, X-ON, X-OFF and 
PAD command prefixes. 

THE SOLUTION! Let us look at the problems in detail. In the 
following the PAD parameter numbers and settings apply directly to 
the German DATEX-P network. The international parameters as 



well as the basic problems and processes, however, apply to all 
packet switching networks that are accessed by asynchronous 
terminals through PADs. 

PAD COMMANDS! "SET parameter _no S value , parameter no 1 
value , ..." sets PAD parameters, "PAR?" lists the current 
parameter settings. "PROF profile_no" resets all parameters to 
predefined values and "PROF? profile_no" lists the predefined 
values of profile_no without applying them. Do not key in the 
quotes. In most cases you will only need the SET command. 

[31 INTERNATIONAL PAD PARAMETERS 
PAD COMMAND PREFIX! When connected with CompuServe 
you can still issue commands to the PAD. A special character 
(DLE--P, Ctrl-P, check for your particular network) switches the 
PAD into command mode. The following lines are not sent to 
CompuServe any longer but are taken as commands by the PAD, Two 
consecutive Returns get you back into the connection. For example 
to set parameter 3 to the value of 126 and parameter 4 to zero you 
have to do this! Key in *P to switch the PAD into command mode, 
then key in "set 3S126,4S0". Do not key the quotes. Finally press 
Return twice to get out of command mode again. 

This enables you to change PAD parameters while you are 
already connected. We need this facility to adjust the PAD to our 
needs, especially because setting the PAD parameters before 
establishing the connection does not always work. In DATEX-P the 
parameters change when the connection is established and these 
changes are not always favourable. 

You can tell the PAD to let DLE C*P) characters pass 
unnoticed with "set 1!0". However you will be able to get into 
command mode never again during the course of that connection. For 
binary uploads "set ISO". 

PAD ECHO! The PAD will usually echo everything you send 
back to you. This enables you to use full duplex transmission so 
you can see all transmission errors. For file transfers switch the 
echo off with "set 2!0". Afterwards switch the echo back on with 
"set 2!1". 

FORWARD DATA CHARACTER! The PAD can be told to form a 
packet and forward it before the packet is filled completely. This 
is necessary because often you will not fill up a packet. Imagine 
you want to enter a menu selection. You key just one digit and a 
Return. Without a Forward Data Character setting the PAD would 
now wait for you to fill the remaining 126 bytes of this packet 
before it is sent on its way to CompuServe. You will also want the 
PAD to forward control characters like *C and Escape immediately. 

For file transfers, especially binary uploads, it is not desired 
to forward packets that are not completely filled for economic 
reasons. After all you pay for the packet, not the characters in it 
(more exactly for the segment), "set 3!126" to forward data after 
all control characters and DEL. "set 3!2" to forward data after 
Return characters only, "set 3!0" (no Forward Data Character) for 
file transfers. 

FORWARD DATA TIME OMITS If you have no Forward Data 
Character you have to tell the PAD to forward data anyway after a 
certain time because the transfer protocol (e.g, XMODEM) will not 
always fill the packet completely, "set 4S8" for file transfers. This 
yields a .32 s limit (8 * 40 ms). "set 4S0" for normal operation with 
a Forward Data Character (no time limit). The maximum value for 
this parameter is 255. 

X-ON/X-OFF FROM PAD TO DTE! This parameter enables the 
PAD to stop and restart your transmission by sending X-OFF and 
X-ON bytes to your computer, "set 3S0" if this is not desired, "set 
5!1" for uploads. 

There is a minor problem when you allow the PAD to send X- 
OFFs to you. Sometimes, especially after finishing or breaking a 
connection, the PAD sends an X-OFF and your computer seems to 
freeze. Simply key a Ctrl-Q (X-ON) and everything is all right 
again. 

PAD MESSAGES! You may forbid the PAD to send its own 
messages to you with "set 6S0" during a straight text download if 
you are afraid of "Parity Error" or similar messages in the middle 
of a received file, "set 6S1" normally. 

BREAK! There are different PAD reactions to a break signal 
sent by you. Parameters 7 and 8 deal with these. Leave them alone, 
we do not normally use break signals. 

NUMBER OF FILL CHARACTERS AFTER RETURN! Always 
"set 9S0" unless you have a real Teletype that cannot return the 
carriage in time. 

LINE LENGTH: Always "set 10S0" unless you want the PAD to 
break long lines with additional Returns and Linefeeds, (Maximum 
value 255) 
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X-ON/X-OFF FROM DTE TO PAD! "set 12:0* for binary 
uploads to make the PAD ignore X-ON and X-OFF character*, "set 
12U" otherwise. 

C4] NATIONAL PAD PARAMETERS (DATEX-P AND OTHERS) 

DELETE CHARACTER, DELETE LINE, REPEAT LIKE, 
ADDITIONAL FORWARD DATA CHARACTERS: These parameters 
allow local line editirig performed by the PAD. With "set 
118:8,119:21,120:22" the PAD can be instructed to perform the 
duties of the Backspace, Ctrl-TJ and Ctrl-V commands locally which 
saves you money whenever you use these commands. If in doubt 
"set 118:0,1 19S0,120»,121 50,12210". 

PARITY'. If you use 7 bit with parity you may "set 12351" to 
make the PAD check your parity bit. "set 123S0" for 8 bit character 
length and for all binary file tran sfers . 

DELAY OUTPUT DURING INFOTS Parameter 125 can make the 
PAD hold incoming data until you have finished typing a line, a very 
handy feature for online conferences, 'set 125110" for a maximum 
hold time of 10 seconds. Don't worry, the PAD will not hold all 
incoming data for 10 seconds when you type. As soon as you press 
Return all upheld data will start flowing again, "set 12550" for file 
transfers under protocol. 

INSERT LINEFEED! Try whether "set 12610" works with your 
equipment. If the Return key does not advance to the next line let 
the PAD echo a linefeed after each Return sent by you with "set 
126!4" which is the standard setting. (Other settings are! 1 ■ insert 
linefeeds after Returns sent by host through PAD to DTE, 5 ■ both 
1 and 4.) 

t51 XMODEM FILE TRANSFER 

CompuServe's XMODEM has a special problem. When you 
initiate an XMODEM file transfer CompuServe automatically sets a 
Transparent Profile (which is nice) but does this just an instant too 
late. Thus the initial handshaking is spoiled and the file transfer 
always gets stuck. 

Fortunately we now know enough to take things into our own 
hands and control the PAD ourselves until the CompuServe 
programmers get this fixed. 

Being too lazy to SET all those parameters individually we can 
make use of the Transparent Profile our networks offer. In 
Germany and Canada and probably many or all other countries the 
Transparent Profile is called "PROF 3". 

To start an XMODEM file transfer do this! 

1. Go to the point in CompuServe approximately one command 
before starting the download or upload. 

2. Enter Ctrl-P (*P, DLE, the network's command prefix, check 
for your particular network). 

3. Type "prof 3" without the quotes and press Return. 

4. Press Return a second time. You are now back in connection 
with CompuServe. 

5. Issue the last command(s) to start the download or upload 
process. There is no echo any more, i«. you don't see what you are 
typing. Don't worry, just carry on, 

4. After the transfer, if you don't like the standard parameter 
setting, SET the parameters again by using a "Pset command. 

C41 PLEASE WRITE 
Please drop me a line if you have used the information in this 
file unsuccessfully or successfully! I will update this file whenever 
new knowledge becomes available. Do not send me SIG messages 
since I do not come here often, use electronic mail. I would 
especially like to know! 

Does Ctrl-P work in your network? 

Is PROF 3 the transparent profile in your network? 

Could you upload straight text? 

Could you download with XMODEM? 

Could you upload with XMODEM? 

Could you locate any error or missing information in this text? 

Do you have any other information you think should be included here? 

Do you have any other information that might be of interest to me? 

Thank you very much for your interest and co-operation. 

NOTE! CompuServe can be reached directly with "0 3132" and 
also through Tymnet and Telenet. The numbers are "0 3104,CPS0r, 
"0 3106.CIS02", "0 3106.CIS03", "0 3106.CIS04", '0 3104 001133", 
"0 3106 001134", "0 3106 00337300" for Tymnet and 
"0 3110 20200202" and "0 3110 61400227" for Telenet. Do not key 
the quotes. You may have to substitute the leading by your 
network's international prefix like 1 or C or P 1. Often you may 
omit spaces. You may substitute "0 3107" for "0 3106" which 



presumably enforces the use of an TTT gateway. There is a 
surcharge for all connections except 3132. 

Hans G. Michna 74774,2341 



A PATCH OF A PATCH OFA PATCH 

by Lawrence C. White VE3FNE 

(34 Kempster Avenue, Ottawa, Ontario, CANADA K2B6M1) 

To answer Kate Balsbury's question in NORTHERN BYTES 
Volume 5 Number 4 (pages 9-11) his changes will read in a tape at 
500 baud but will not write tapes. I made additions to Nate's 
program that allow you to read and write 500 baud tapes on the 
Model m. These revisions should work with Versions 1.06 and 1.07 
of EDTASM PLUS, I made these changes on Version 1.04. There 
was one error in the printout on Page 11 of the aforementioned 
article - line 02140 should read as follows! 

LD HL.4383 } TO EA WARM REENTRY 

Since I did not put in the patch for the use of disks (to tell the 
truth, I could not find the correct place to insert Arne's program 
due to a problem in my disassembler), I started my patch at 72S4H 
and completed the first patch at 72C8H (this is the patch that is in 
Nate's article with the exception of everything from line 02430 to 
the end of the patch). 

I started my patch at 72C9H, this is a repeat of Nate's patch 
but is called from location 4FD4H (in version 1.06). The patch 
follows: 



72C9 


CD0844 


CAUL 


4408H 


72CC 


AF 


XOR 


A 


72CD 


321142 


LD 


(4211B),A 


72D0 


210342 


LD 


HL,4203H 


72D3 


11C572 


LD 


DE.SAVBRK 


72D6 


010300 


LD 


BC.03H 


72D9 


EDB0 


LDIR 




72DB 


3EC3 


LD 


A.0C3H 


72DD 


320342 


LD 


(4203H),A 


72E0 


216343 


LD 


HL.4383H 


72E3 


220442 


LD 


(4204H),HL 


72E4 


0ED3 


LD 


C0D3H 


72E8 


C9 


RET 




72E9 


E972 


(BUFST) 




72EB 


E972 


Q3UFEND) 




72ED 


FFFF 


(ENDTXT) 





For the above patch to work address 4FD4H must be changed to 
CALL 72C9H and address 4459H must be changed to 72E9H as 
follows: 

4FD5 C9 72 
4459 E9 72 

As written the patches will read and write source code at 500 
baud on the Model III. After the source code has been read or 
written, enter XBTJG and change the value 0D3H at locations 72A2H 
and 72E7H to 55H, the program can now be assembled and the object 
code written to tape and ZBUG can now write and read object tapes, 

These patches and changes work but if anyone can find an 
easier method I would appreciate hearing from them. Also I would 
like to know where to start the disk patch, written by Ame Rohde, 
for the version 1.04. 



MPS FOR USERS Of VJDBfU WITH HEWD06/80 
Contributed by Bob Bromley 

1. To fix the directory display so as to display filenames 5 
across, and to use all 24 lines of the video display! 

BYBB/SYS, FRS 01, bate OC change OD to 15 

BY8B/SYS, FRS 01, byte 12 change 05 to 06 

SYB8/SYS, FRS 02, byte BE change 04 to 05 

8YS8/SYS, FRS 02, byte 96 change OF to 17 

2. Zaps to EDTASM and DISASSEM to use all 24 lines of the 

video display during screen paging! 

EDTASM/CMD, FRS 10, byte 72 change 10 to 18 
DISASSEM/CMD, FRS 01, byte 75 change 10 to 18 
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by Gil Spencer VK2JK 

It Mv Philosophy for D i sk BASIC Enhancements 
Loti of routines which enhance Disk BASIC h*ve been 
published (for example, the "Improved Ampersand Function" in 
Appendix VI of TRS-60 ROM Routine* Documented ). Authors 
generally tuck the extra code at high addresses in memory, thus 
requiring HIMEM protection as well as re-assembly for 32K, 48K, 
etc, [unless you take the extra effort to make the program self- 
relocating and to protect itself in memory -editor]. This approach 
has always bothered me because it m««ns you have to remember to 
set HIMEM and because other bits are often kept at these high 
addresses. It seems to me that a better place to hide these extra 
chunks of code. ..those which are used only in conjunction with Disk 
BASIC. ..is before the beginning of BASIC'S Program Statement 
Table (PST). Routines take up no more room there. Often they 
consume less because initialization code is only needed for the Cold 
Start. This "setup" code can be discarded after initialixation. For 
examples of what I'm trying to say cf. my paper " Enhance Your 
Level II BASIC " on pages 202-214 in "80~Micro" for July, 1981. See 
also the assembler code for TATUPNI below. Summarized, the steps 
are these! 

a. Divide your procedure into two parts! ACTIVE part and 
SETUP part. 

b. Write your code in this sequence! ACTIVE part (last byte 
must be a '00'), then SETUP part. 

c. At the very end of SETUP part do this! Force "BASIC 
Begin" pointer (40A4H-40A5H) to point to SETUP! perform a BASIC 
"NEW" (CALL 1B4DH)! exit to BASIC 'READY'. 

The only unanswered question now is where to ORG your 
assembly. The answer is found by peeking at "BASIC Begin" pointer 
for your BASIC in its "natural state". 

2 t MOTB K t.KJASl£,eil! ?y'cem ent 
When you write BASIC programs (particularly business 
programs) where input is to be entered by accounting clerks, etc., 
one of the BIG problems is to make your program sufficiently 
"bullet proof". How do you prevent the input operator from hitting 
unwanted <BREAK>, <XLEAR> or <ENTER> keys? How do you allow 
only numerals (plus, perhaps, "+", "-" or ".") in fields which must 
contain only such input? How does the input operator abort if a 
mistake is realized during input? How do you insist on, say, five 
characters in the field (no more, no less) if that's what the program 
requires? Lewis Rosenfeldar explored this problem in his 
masterwork "BAS IC Taste r and Better & Other Mysteries ", Chapter 
13 "Data Entry Handlers". A potentially even better solution is 
presented by Roger A. Smith, Jr. in his paper " Easy ftiput " <P*Q« 
109, November 1984 issue of "80-Micro"). I've embroidered upon 
Smith's paper and the result is TATUPNI (Input At, spelled 
backwards!). The assembler source code (suitable for the Model III 
running NEWDOS/80) is printed below, along with a BASIC 
demonstration program to show how TATUPNI works. Presently, 
the CMD"S" return to DOS is unpredictable! I've not yet tried to 
figure out why. 

[Editor's note! This program was originally assembled using 
NEDAS v4.1B (a version of Misosys's EDAS rewritten for 
NEWDOS/80 that Gil uses). Since most NORTHERN BYTES readers 
will not have that assembler available, I have slightly modified the 
source code that Gil sent me so that it will run under the standard 
Apparat EDTASM (supplied with NEWDOS/80). If you. wish to use a 
version of EDAS to assemble, simply change all DEFB's to DB, all 
DEFS's to DS, and all DEFW's to DW.l 



eeiet 

tern 

10121 
10131 
B0110 
00150 

souo 

10170 
10180 
00190 
00200 
09210 
00220 
09230 
00210 
00250 



Source co de for TATUPNI /CMD 
JTA'tUPKI (Dt%AT, Backwards!) v 1.2-85(112 

JFrai! Cil Spereer / tf&K / Phw* 61 (02) 969-7040 
! few 300 / Spit Junction /HSM 2088 / Austrilii 

(Syst! 49k 2~di* TRS-60 ««J3 / F*x-B0 Printer. 
[DOS ! leeOSBO v>2,0 (through Z» 086). 
, 

!A dynamic DISK BASIC pitch, addins 2 new endt! 
! "BPUie prinUt,fl»5,USDC string (veriible". 

! "*PDS\ Fn returning current cursor poiition. 

t 
, 

;mnHcnaracEuanaMniMi«Mi«iiiiiiiimiilltt 

;m Fro*! "EASY INPUT" n 

;n By! fiogw Snith n 

(d "80 rtiwo" tov 1991 issue, Page 109-120 « 

tEnhancefwnts: by Cil Spencer. 



11260 (TATUPNI resides before BASIC PST t consume <6M bates. 

11270 (To use, execute Disk BASIC. Then ewcute TATUKI fron 

11280 {BASK with QfrTATUW, or sinilar (depends on DOS). 

00291 j 

10310 !<r> TATUPNI for TRS-B0 rtodel I/m.>' 

11311 «DyniRicilly KtivitH 'MUTT and 'IPOS' in DISK BASE,)' 

10320 ;<For bnic drUiU cf . "Easy Input" in Now W "81 Iticro", 

11330 ; n 119. For UPVidt info cf. TATVMt/BAS.>' 

11310 ( 





01351 ("Un cawmf 


•plicsbli 


i ORG belou. 


6A16 


10360 


OK 


Qfnan 


(tBDQS/80 begin PST Disk BASIC. 




10370 ! 


ORG 


6A7DH 


(TR50OS H3 begin PST Disk BASIC. 




00361 ! 










11390 {Global Equates! 




INF 


10401 OJEHR 


EOU 


5FH 


(Cursor chir ■ Underscore. 


IfEE 


OMUBCKOf 


EHJ 


(EDI 


(Background char ■ "Shedou X". 




10120 }R£H Equates! 






19AE 


0M30 BASIC 


EOU 


19AEH 


(Decker's BASIC entry (Hodl/3). 


1BD 


(0410BASNEH 


EOU 


1B4DH 


(Hod3 BASIC "NEW rtn. 


19A2 


0M50 ERROR 


EOU 


19AZH 


(Error Handling. 


2337 


0(460 EVAL 


EOU 


Z337H 


(Evsluate Expression. 


1E4A 


10471 FCERR 


EOU 


IE4AH 


(Ft Error. 


2BI1 


meiOETINT 


EOU 


2B01H 


(Evaluate Integer Expression. 


1F33 


11490 HDLSTR 


EOU 


1F33H 


("Handle" ♦ I put it with * vers. 


2868 


005(0 WW 


EOU 


2S68H 


(Finish of DPUT ROM rtn. 


002B 


(0510 KBCHAR 


EOU 


IB2SH 


(Check keyboard for chsr. 


1997 


10520 SNERR 


EOU 


1997H 


(Syntax Error. 


0AF1 


0(530 TEST 


EOU 


OAF* 


!TH Error if WA1 HOT *. 


0AF6 


0(510 THERR 


EOU 


(AF6H 


(TH Error t 


2600 


0(550 vAUPTR 


EOU 


2600H 


(Returns vARPTR. 




0(560 (Reserved RAN Equates! 




10A1 


1(571 BASBGN 


EOU 


ikjnUI 


(Pointer to beginning of BASIC. 


1019 


10580 CAPLOK 


EOU 


1019H 


(( )«t-M>lc. ( lOKAPS only. 


10A6 


00590 CURPOS 


EOU 


1DA6H 


(Cursor Position (0-63) on line. 


4020 


0(6(0 CURSAD 


EOU 


1(2(H 


(Cursor Address. 


1999 


(0610 OKEY 


EOU 


4899H 


(LMt Key Pressed. 


10A7 


0(620 KEYBUF 


EOU 


1(A7H 


(Pointer to Keyboard Buffer. 


1065 


00630 LSPADR 


EOU 


1(85H 


(Literal t Pool Tible (LtPT). 


10B3 


16640 LSPHXT 


EOU 


10B3H 


(Nxt Avail Loc in LtPT. 


1191 


(0650 vac 


EOU 


119* 


JJ Vector. 


11D6 


00660 VDfUT 


EOU 


1106H 


(Input Vector. 


10AF 


(0670 VTF 


EOU 


10AFH 


(Variable Type Flag. 


4121 


0(680 HRA1 
((690 ! 


EOU 


4121H 


(HRA1 (Integer t ♦). 


6A16 


(0700 HUMAN 


EOU 


* 


(New 'I' Vector points here! 


6A16 23 


00710 


DC 


ML 


(Check next chert 


6A17 7E 


0(720 


LO 


A, (Hi) 




6A48 2B 


((730 


DEC 


HL 


(Restore Ptr. 


6A49FTDC 


(0710 


CP 


0CCH 


(Is it "POS" token? 


6/HB2803 


00750 


JR 


Z.KJVANl (-If Yes, JP. 


0003 


(0760 ANDPTX 


DEFS 


3 


i-If Ho, Exit new code. 




(0770 jnote: 


MDPTX 


is Mdifitd to Reserved RW JP by SETUP. 


6A30 E5 


(0780NUVAM 


PUSH 


HI 


(Store Line Locitiont 


6A51 3E02 


0(790 


10 


A,2 


(Store "IHT* in Type Loc 


6A53 32AF1I 


00811 


LD 


(VTF), A 




6A56 2A2040 


((810 


U> 


HL,(CURSAD) (Get Cursor Address. 


6A59 0100C1 


(0820 


LD 


BC.-X00H (Subtract X(0h, 


6A5C 09 


((830 


ADD 


HL,BC 




6ASD 222111 


((810 


LD 


(HM1 ) ,HL {Store mult in REC1 . 


6A60E1 


0(850 


POP 


HI 


(Restore Ptr. 


6A&1 23 


0(861 


DC 


HL 


(Bunp pHt token. 


6A62D7 


(0870 


RST 


10H 


(Skip my spaces. 


6A63C9 


0(880 
(W9( ! 


RET 






6A61 


0(9(0 HuVJN 


EOU 


t 


(New DCUT vector points her*. 


6A64FE11 


(0910 


CP 


'»' 


(Is it INPUT 


6A66 2803 


(0920 


JR 


2,NUVIN1 (-If Yes, JP 


0003 


trmwm 


DEFS 


3 


(-If Ho, exit new code. 




(0910 (NOTE! 


DffTX 


■is chanted to Reserved R)H JP by SETUP. 


6A6BCD012B 


(0950 NUvTNl 


CALL 


GETINT 


(Evaluate Integer. 


6A6EFE01 


(0960 


CP 


1 


(Is it >1023? 


6A70 D24A1E 


00970 


JP 


MCFCERR !-If *s, JP 


6A73E5 


(0980 


PUSH 


HL 


(-Else, Store Ptr. 


6A71 2100X 


0(990 


LD 


HL.XOOH (Start of Video. 


6A77 19 


010(0 


ADD 


HL,DE 


(Add Offset. 


6A78 222H0 


01010 


LD 


(CURSAD), HI (Cursor Address. 


6A7BE1 


01020 


POP 


HL 


(Restore Ptr. 


6A7CCF 


11030 


RST 


8 


(Test if next * byte >.. 


6A7D2C 


(UK 


DEFT) 


',' 


I'ftOMM* 


6A7E7E 


(1(50 


LD 


A, (HI) 


(Get chr after ',' int. 


6A7FFE9F 


01060 


CP 


HFH 


(Is it USING token? 
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MSI 2611 


11070 


JR 


2.U5DC 


(-If yes, JP. 


6617 79 


•1881 LOOK 


LD 


A.C 


(A-» DP chars left. 


M83 26 


•1080 


DEC 


HI 


(-Else Detrenant Ptr. 


6618 87 


11891 


OR 


A 


(Is it zero? 


6A64CM12B 


11191 


CALL 


CETDfT 


(Evaluate Integer. 


6619 2813 


11911 


JR 


Z,HATCH 


(-If Yes, JP. 


6AB7 7B 


urn 


LD 


A,E 


(Get LS6 of Integer, 


6B1B7E 


11911 


LD 


A,(HL) 


J-Elst Get char. 


MSB 32836C 


urn 


LD 


(FLAG), A 


(Store t Flag. 


661CFE23 


11921 


CP 


'»' 


(Is it t? 


6MB CF 


11121 


RST 


8 


(Test if next * byte «,,, 


6B1E28K 


11931 


JR 


Z.MATCH 


(-If Yes, JP. 


M8C 2C 


mat 


DEFB 


t 


t,«,a CfMfte, 


6620 23 


•194IL00P3 


DC 


HL 


(-Else, Next char. 


MBD 7E 


11110 


LD 


A, (Hi) 


{Get next char. 


6621 CD2666 


•1951 


CALL 


DCDE 


(Increnent curs loc. 


6A9EFEBF 


11151 


CP 


•BFH 


(If it USDS token? 


6B24 18F1 


11961 


JR 


LOOK 


(Loop til finished. 


6A9I C27719 


11161 


JP 


KZpSNERR 


(-If No. JP. 


6626 13 


11971 DCDE 


DC 


DE 


(Increnent Curs Loc rtn, 


6A93 23 


11171 IBM 


DC 


Hi 


(IncTflMnt Ptr. 


6B27 7A 


11981 NORM 


LD 


A,D 


(Keep DE an Screen, 


tma 


11181 


PUSH 


HL 


(8tor« Ptr. 


6B2BE63F 


11996 


AND 


3FH 




6A95 CD3723 


01191 


CALL 


EVAi 


(Eviluttt Express ion. 


662AF63C 


12100 ; 


OR 


3CH 




6A98E1 


11210 


POP 


HI 


(RMtort Ptr. 


662C57 


•2110 


LD 


D,A 




6A99 23 


11211 LOON 


DC 


H. 


tlncr wwrtt rtr» 


662DC9 


12121 


RET 






6A9A7E 


11220 


LD 


A,(HL) 


(Git dwr. 


662E79 


KIM HATCH 


LD 


A,C 


(Get t DP chart left. 


6A9BB7 


11230 


OR 


A 


(Is it zero? 


662FB7 


I2M0 


OR 


A 


(Is it zero? 


M9CCA9719 


11240 


JP 


ZrSrERR 


(If yes, JP. 


6631 2114 


(2050 


JR 


NZ.HATCH2 


(-If No, JP. 


6A9FFE3B 


11251 


CP 


'!* 


(It it seni-colon? 


6632 3E20 


12161 


LD 


A,' ' 


(-Else A-space. 


MAI 20F6 


11260 


JR 


NZ.LOOPU 


(-If No, then loop. 


6634 1801 


12171 


JR 


HATCK3 




6AA3 23 


11271 


DC 


M. 


(Increment Ptr. 


6636 78 


02*81 HATCH2 


LD 


A,B 


(Get Background 


MM 7E 


I12S0 LO0PUZ LD 


A,<HU 


,Get char. 


•637 ED33BMC 12191 HATCH3 


I LD 


(UK), DC 


(Store location, 


6AA5B7 


11290 


OR 


A 


(If it zero? 


6636 12 


12100 


LD 


IDE), A 


(Display cursor. 


6AA6CA971? 


11300 


JP 


Z.SH-RR 


(-If Yes, JP. 


6B3CCM26C 


•2111 


CALL 


KEYDI 


(Get char fron keyboard. 


MA? FE20 


01310 


CP 


/ / 


(If it * span? 


663FFE08 


12121 


CP 


B 


(Is it a Backspace? 


tm 2003 


01320 


JR 


NZ.EOL 


(-If No, then EOL. 


6641 201F 


12131 


JR 


NZ,MTTBK 


?-If No, JP. 


MAD 23 


11330 


DC 


Hi 


(-Else, Increnent Ptr... 


6B43 3AFF6B 


12141 


LD 


A, (LEN) 




6AAE 18F1 


01310 


JR 


LO0PU2 


(...and loop. 


6646 B9 


12150 


CP 


C 


(CP to chew left. 


6AS0 Z2886C 


01350 EX 


LD 


(PTRl.HL 


(Store Ptr. 


6647 2BE5 


12160 


JR 


Z.HATCH 


(-If equal, JP 


6AB3 3AAF40 


01360 


LD 


A,(VTF) 


(Get variable type. 


6649K 


12171 


DC 


C 


(Increnent chars left, 


AAB6FE03 


01370 


CP 


3 


(Is it a 0? 


6B4A3E01 


12181 


LD 


A,l 


(A>1. 


MB8C2F60A 


01380 


JP 


NZ.TWERR 


(-If No, JP. 


664C 69 


12190 


CP 


C 


(Is there 1 char left? 


6ABB ED5B2141 01390 


LD 


DE.ORAl) 


(Get VARPTR. 


664D28I4 


12211 


JR 


Z,0N£ 


(-If Yes, JP. 


6ABF 1A 


01400 


LD 


A,(DE) 


(A=» length. 


664F78 


12210 


LD 


A,B 


(-Else, get Background. 


MCO B7 


OHIO 


OR 


A 


(Is it zero? 


6650 12 


02220 


LD 


(DE),A 


(Display it. 


6AC1 CAW1E 


11420 


JP 


Z,FCERR 


(-If Yes, JP, 


6651 1813 


12230 


JR 


LOOPH 


(Loop. 


MC117 


11431 


LD 


B.A 


(-Else 8= ♦ length, 


6653 3E20 


12240 ONE 


LD 


A,' ' 


(A*space. 


4AC5 32FD6B 


11440 


LD 


(TEMP), A 


(Store length, 


6655 12 


12250 


LD 


(DE),A 


(Display it. 


6AC8 13 


01150 


DC 


DE 


(Increment VARPTR. 


6656 18 


12261 LOOPH 


DEC 


DE 


(Backspace rtn. 


6AC? 1A 


01460 


LD 


A,(C€) 


(Get LSB of Location. 


6B57CD276B 


12271 


CALL 


NORM 


(Keep DE on Screen. 


MCA AF 


01470 


LD 


L,A 


(L4.SB 


6B5A2B 


•2280 


DEC 


HL 


(Oecrenent Ptr to 1. 


MCS 13 


01480 


DC 


DE 


(Increnent VARPTR. 


665B7E 


12290 


LD 


A,(HL) 


(Get char. 


MCC 1A 


01490 


LD 


A,(DE) 


(Get KS8 of Location. 


685C FE23 


12311 


CP 


'♦' 


(It it a t? 


MCO 67 


01500 


LD 


H,A 


;«.-> s. 


665E20F6 


12310 


JR 


NZ,L00PH 


(-If No, Loop. 


MCE 22844C 


11510 


LD 


(STRING >,HL 


(Store H. 


6660 18CC 


12320 


JR 


HATCH 


(-Else, JP. 


MD1 0E00 


01520 


LD 


CO 


(Counter^!. 


6662 FE0A 


12331 N01BK 


CP 


11 


(Is it a dwvarrw? 


M03 7E 


01530 LOOP 


LD 


A,(HJ 


(Count the ts in the ♦. 


6664 2801 


12340 


JR 


Z,TEN 


(-If Yes, JP. 


MM FE23 


11540 


CP 


'*' 




6666 FES 


12351 


CP 


91 


(Is it an up-errw? 


MM 2001 


01550 


JR 


NZ.NEXT 




6668 2019 


•2360 


JR 


NZ,N0T91 


(-If No, JP. 


MD8 0C 


11560 


DC 


C 




68MI8 


12371 TEN 


EX 


AF.AF' 


(Store A in A'. 


MO? 23 


01570 )EXT 


DC 


n 




6666 3A836C 


12380 


LD 


A.IFLAC) 


(Get FLAG byte. 


MDA 10F7 


01580 


DJNZ 


LOOP 




6B6E CB57 


12390 


BIT 


2,A 


(Test bit 2. 


MX 79 


11590 


LD 


A,C 


(A-Nunber of H. 


6671 20ID 


12410 


JR 


KZ,BADGHR 


(-If bitW, char is Bad. 


6ADD32FF6B 


11600 


LD 


(LEN),A 


(Store A. 


6672 18 


(2410 


EX 


AF,AF' 


(-Else get value. 


ME0B7 


01610 


OR 


A 


(If it zero? 


6673 1EC6 


(2420 


LD 


E,(C6H 


|E*ror IK. 


ME1 CA4A1E 


01620 


JP 


Z.FCERR 


(-If Yet, JP. 


6675 FE5B 


(2430 


CP 


91 


(Is it up-arru? 


6AE4 06EE 


11630 


LD 


BiBCKCHR 


(6>8ackground char. 


6677CAA219 


(2440 


JP 


Z, ERROR 


(-If Yes, JP. 


6AE6 ED5B2040 01640 


LD 


DE.(CURSAD) 


(Get Cursor Address. 


667A1EC8 


(2151 


LD 


E.0C8H 


(-Else, E- Error 1(1. 


4AEA2A846C 


11650 


LD 


HL.(STRDS) 


(Get Ptr to t. 


667CC3A219 


12466 


JP 


ERROR 




MEDE5 


11660 


PUSH 


HL 


(Store * Ptr. 


667F78 


12470 BADCHR 


LD 


A,B 


(Get background char. 


MEE D5 


11671 


PUSH 


DE 


(Store Cursor Location, 


6681 12 


(2180 


LD 


(DE),A 


(Display it, 


MEF7E 


01680 L00P1 


LD 


A, (Hi) 


(Get char. 


6681 18AB 


(2491 


JR 


HATCH 


(Continue, 


MF0 FE23 


01690 


CP 


'*' 


(Is it t? 


6BB3FE0D 


(25(0 N0T91 


CP 


13 


(Is it ENTER? 


6AF2 2001 


01700 


JR 


NZ,COKTZ 


(-If no, JP. 


6685 2113 


•2511 


JR 


NZ,N0T13 


(If No, JP, 


MO 78 


11710 


LD 


A,B 


(-Else A<4acKground. 


6B87 3A836C 


•2520 


LD 


A,(FLAC) 


(Get FLAG byte, 


6AF5 12 


01720 cam 


LD 


(DE),A 


(Send A to video. 


668ACB5F 


•2530 


BIT 


3,A 


(Test bit 3. 


6AF6CD266B 


01730 


CALL 


DCDE 


(Increnent cursor loc. 


668C281B 


12540 


JR 


Z.EXIT 


I-If bit X, JP. 


MF9 23 


11740 


DC 


HL 


(Point to next char. 


6B8E3AFF6B 


(2550 


LD 


A, (LEN) 


fChtck lmothi 


6AFA3AF06B 


01750 


LD 


A, (TEMP) 


(Get length of *. 


6691 69 


12560 


CP 


C 


(-Should be All... 


6AFDX 


01760 


DEC 


A 


(Decrement it. 


6692 2815 


12570 


JR 


z,Exn 


(-If Yes, JP. 


6AFE 32FD6B 


01770 


LD 


(TEMP), A 


(Store decremented len, 


6691 AF 


12580 


XOR 


A 


••••or None* 


6811 20EC 


01780 


JR 


NZ.LOOPl 


(Loop til TEHP=0, 


6695 81 


•2590 


OR 


C 




6BS3 3AFftf 


01790 


LD 


A, (LEX) 


(Get nunber of ts. 


6696 2K7 


126(0 


JR 


NZ,BADCHR 


(-If NOT None, JP. 


66(6 4F 


01800 


LD 


CA 


(Store in C. 


£B98 1BIF 


(2610 


JR 


Exn 


J-tlse exit. 


6BI7 ED532M0 01811 CONN 


LD 


(CURSAD),DE 


(Store Cursor Address. 


6B9A32FD6G 


(2621 N0T13 


LD 


(TEHP),A 


(Store char. 


6B0B 7B 


11820 


LD 


A,E 


(Conpute CURPOS 1 store. 


669D AF 


12631 


XOR 


A 


(A=0. 


6B0CE63F 


•1831 


AM) 


3FH 




669EB1 


12641 


OR 


C 


(Does Ol? 


6BIE32A64I 


01840 


LD 


(CWPOSM 




6B9F 28DE 


12650 


JR 


Z.BADCHR 


(-If Yes, JP. 


6B11 01 


11850 


POP 


DE 


(Hove Curs Loc to DE. 


66A1 3AFD66 


(2661 


LD 


A,(TEHP) 


(Get char. 


6612 El 


01860 


POP 


HL 


(Hove Start • loc to hi. 


68A1 12 


(2670 


LD 


(DE),A 


(Display it, 


6613 EOS3006C 01870 


LD 


(SCREEN) ,DE 


(Store curt loc ( SCREEN, 


68A5 ID 


(2680 


DEC 


C 


,Docrsnent Counter* 



20 



6BA6 C3ZI48 


02690 


JP 


L00P3 




6BA9 2AB16C 


12710 Exn 


LD 


HL,(STRING) 


[Get Ptr to ♦. 


6PAC 3E20 


02710 


LD 


A,' ' 


[A=space. 


&EAE 12 


02720 


LD 


(DE),A 


(Display space. 


6BAF ED5B006C 02730 


LD 


DE, (SCREEN) 


{Get Starting Cursor Pos. 


A883 3AFF6B 


02710 


LD 


A,(LEN> 


{Get ( of DP chars. 


4BG6if 


12730 


LD 


C,A 


[Store * in C. 


4B87 AF 


02760 


XCR 


A 


JA=0. 


6BS8 329910 


02770 


LD 


<DKEY),A 


{Erase DKEYt. 


6BG8 FD2AA710 02780 


LD 


IY,(KEYBUF) 


{IY— > Keyboard Buffer. 


668F 7E 


02790 L00P1 


LD 


A,(HL> 


{Get char. 


&BC0 FE23 


02800 


CP 


'♦' 


[Is it a ♦? 


6BCZ 2806 


02810 


JR 


Z,HATCH1 


!-If Yes, JP. 


68C1 23 


02820 LOOPS 


DC 


HL 


[Get Next char. 


6BC5 CD264B 


02830 


CALL 


DCOE 


[Dcrenent video ptr... 


68C8 19F5 


02810 


JR 


LOOPI 


[...and loop. 


4BCA 1A 


02850 HATCH1 


LD 


A,(DE) 


!Get DP char. 


6BCE B8 


02860 


CP 


B 


lis it a background char? 


68CC 2003 


02870 


JR 


NZ,C0NT5 


{-If No, JP. 


6RCE 3E20 


O28S0 


LD 


A,32 


I-Else A=space. 


68O0 12 


02890 


LD 


(DE),A 


[Display the space. 


6BC1 FD7700 


02900 CONT5 


LD 


(IY),A {Store DP char in DP buffer. 


ABM FD23 


02910 


DC 


IY 


[Increnent Buffer Ptr. 


6BOi CD 


02920 


DEC 


C 


[Decrement Counter. 


6BD7 20EB 


02930 


JR 


NZ,LOOP5 


[Loop til Counter^. 


6809 Z1B510 


02910 


LD 


HL.LSPADR 


[Restore te*p ♦ Stor Ptr. 


ASDC 22B310 


029S0 


LD 


(LSPNXT>,HL 




6ROF FD360000 02960 


LD 


(rf),0 


[Hark End of Input. 


6BE3 2A886C 


02970 


LD 


HL,(PTR) 


[Get Ptr to Pos in pgn. 


6BE6 Fl 


02980 


POP 


AF 


[Clear stack.. 


6BE7 CD0D26 


02990 


CALL 


VARPTR 


[Find VARPTR, 


6KACDM0A 


03000 


CALL 


TEST 


[If not $, then FC Error. 


6EtD E5 


03010 


PUSH 


HL 


[Store Ptrs. 


6EG D5 


03020 


PUSH 


DE 




6EEF 2AA710 


03030 


LD 


HL,(KEYHF) 


[Get Buffer loc. 


6EF2 2B 


03010 


DEC 


HL 


[Point to Buf fer-1 . 


6ET3 06C0 


03050 


LD 


B,0 


[8=0, 


6BF5 CD6828 


03060 


CALL 


DPUTF 


[Use ROM DPUT rtn now, 


66F8 El 


03070 


POP 


H. 




6BF9 AF 


03080 


XOR 


A 




6EFA C3331F 


03090 
03100 ; 


JP 


HDLSTR 


[JP to ROM » "handler". 


0002 


03110 TEMP 


DEFS 


2 




0001 


03120 LEN 


DEFS 


1 




OOC 


03130 SCREEN 
03110 ; 


DEFS 


2 




6CC2 05 


03150 KEYIN 


PUSH 


DE 


[Get char fron keybd rtn. 


6CC3 C5 


03160 


PUSH 


BC 




6C01 E5 


03170 


PUSH 


HL 




6CC5 2A86AC 


C31B0 LOOPK 


LD 


H.,(LX) 


[Get video location. 


6CC9 7E 


C3190 


LD 


A,(HL) 


[Get current char. 


6CD? 32FD6B 


03200 


LD 


(TENPl.A 


[Store current char. 


ACOC 3A836C 


03210 NORSH 


LD 


A, (FLAG) 


[Get Flag. 


6C0F EiCO 


03220 


AN) 


OH 


[Mask all bits but 6 J 7. 


AC11 17 


03230 


LD 


B,A 


[Store i«sk in B. 


6C12 365F 


03210 


LD 


<HL),CURCHR 


[Display Cursor char. 


6C11 C0386C 


03250 LOOPK1 


CALL 


SCAN 


[Call Scan subrtn. 


6C17 B7 


03260 


OR 


A 


[Is it a zero? 


6C18 201A 


03270 


J) 


NZ.KEYRET 


[-If No, JP, 


6C1A 10F8 


03280 


MC 


LOOPK1 


[-Else, Loop til B=0, 


6C1C 3A83AC 


03290 


LD 


A, (FLAG) 


[Get Flag. 


6C1F CEI47 


03300 


BIT 


1.A 


[Test bit 1. 


6C21 20E9 


03310 


JR 


NZ.NOFLSH 


J-If bit 1=1, JP. 


6C23 E6C0 


03320 


AND 


0C0H 


[-Else Get Blink Rate. 


6C25 17 


03330 


LD 


6,A 


[B=*link delay. 


6C26 3AFD6B 


03310 


LD 


A, (TEMP) 


[Get char. 


6C29 77 


03350 


LD 


<HL),A 


[Display it. 


6C2A CD386C 


03360 LOOPKZ 


CALL 


SCAN 


[Call Scan subrtn. 


6C2DB7 


03370 


OR 


A 


[Is it zero? 


6C2E 2001 


03380 


JR 


NZ.KEYRET 


[-If No, JP. 


6C30 10F8 


03390 


DJG 


LOOPK2 


[-Else Loop until B=0. 


6C32 1801 


03100 


JR 


LOOPK 




6C31 El 


6J110 KEYRET 


POP 


HL 


[Clear Stack. 


6C35 CI 


03120 


POP 


BC 




6C36 Dl 


03130 


POP 


DE 




6C37 C9 


03110 
03150 ! 


RET 






6C38 3A836C 


03160 SCAM 


LD 


A,(FIAG) 


[Get FLAG byte. 


6C3B E620 


03170 


AND 


20H 


[Mask all bits but bit 5. 


6C3D 321910 


03180 


LD 


(CAPLOK), A 


[Load CAPLOK with nask. 


AGIO CD2B00 


03190 


CALL 


KBCHAR 


[Check KB for char. 



6C13 B7 (3501 

6CH C8 13510 

6C15 FE18 13520 

6C17 C8 03530 

6C18 FEOD 03510 

6C1A C8 03550 

6C1BFE5B 03560 

6C1DC8 03570 

6C« FE0A 03560 

4C50 C8 03590 

6C51 FE20 03600 

6C53 3B2C 03610 

6C55 C5 03620 

6C5A 17 03630 

6C57 3AB34C 03610 

6C5A CB17 03450 

6C5C 78 03660 

6C5D CI 03670 

6C5E C8 03680 

6C3F C5 03690 

6C60 17 03700 

6C61 3AB36C 03710 

6C61 CB1F 03720 

6C66 78 03730 

6C67 CI 03710 

6C68 280E 03750 

AC6A FE2B 03760 

6C6C 3813 03770 

6C4E FE2C 03780 

6C70 280F 03790 

6C72 FE2F 03800 

6C71 280B 03810 

6C76 1801 03820 

6C78 FE30 03830 

6C7A 3805 03810 

6C7C FE3A 03850 

6C7E 3001 03860 

6C80 C9 03870 

03880 

6C81 AF 03890 

6C82 C9 03900 

03910 

6C83 00 03920 

6C81 0000 03930 

6C86 0000 03910 

6C88 0000 03950 

6C8A 00 03960 

13970 

03980 

03990 

6C8B (1000 

6C8B 2AD711 11010 

6C8E ED5B9511 01020 

6C92 3AD611 01030 

6C95 17 01010 

6C96 3A9W1 11050 

AC99 321D6A 01060 

6C9C 78 M070 

6C9D 32686A 01080 

6CAI ED531E6A 01090 

6CA1 22696A 01100 

01110 

6CA7 3EC3 01120 

6CA9 329111 01130 

6CAC 32D611 (1110 

6CAF 21616A 01150 

4CB2 22D711 01160 

6CB5 21166A 01170 

6CB8 229511 01180 

01190 

6CBB 21866C 01200 

6C8E 22AH0 01210 

6CC1 CD1D1B 01220 

ACC1 (1181A (1230 

6CC7 C3AE19 M210 

6C8B (1250 
(00(( TOTAL ERRORS 



SCAN1 



SCAN2 



BAD 



GR 

RET 

CP 

RET 

CP 

RET 

CP 

RET 

CP 

RET 

CP 

JR 

PUSH 

LD 

LD 

BIT 

LD 

POP 

RET 

PUSH 

LD 

LD 

BIT 

LD 

POP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

JR 

CP 

JR 

CP 

JR 

RET 

XOR 
RET 



A »Is it mo? 

Z !-If Yes, RET. 

B Sis it Backspace? 
Z !-If Yes, RET. 

13 Sis it ENTER? 
Z J-If Yes, RET. 

91 }Is it Up-Arrw? 
Z 5-If Yes, RET. 

10 [Is it Own-Arm? 
Z i-If Yes, RET. 

[Is it Space? 

i-If <Space, JP. 

[Store BC. 

[Store char in B, 

[Get FLAG byte. 

[Test bit 0, 

}A=char. 

[Restore BC. 
[If FLAG byte bilW, RET (A=KB>. 



CBAD 

BC 

B,A 

A.CFLAG) 

M 

A,B 

BC 

Z 

BC 

B,A 

A,(FLAG) 

IrA 

A,B 
BC 

Z.SCAN1 

'+' 

CBAD 

Z,BAO 

'/' 

Z,BAD 

SCAN2 

'(' 

CBAD 

'9'+l 

NC,BAD 



[Get FLAG byte. 
[Test bit 1. 



-If FLAG byte bitl*0, JP (A=KB>. 
[-Else test for '+'. 
[-If <+, JP. 
[Is it coma? 
J-If Yes, JP. 
[Is it virgul*? 
J-If Yes, JP. 

JElse test for numeral. 
JIf <0, JP. 

[If >9, JP. 



FLAG DEFB 
STRDK DEFW 
LX DEFH 
PTR DEFH 
DEFB 



!A=0. 



[Default=61nk slust,uplc,any char. 



[Byte before BASIC Begin nust=0! 



[NOTE: Code fron here used ONLY to initialize TATIPNI. 
[DISK BASIC PST Hill be?in here. 



SETUP 



EQU * [1st, relocate oris vectors, 

LD HL,(VDPuT+l) [Get orig DPUT Vector. 

LD DE,(VAND+1> iGet oris '»' VKtor. 

LD A.tVDPUT) {Get oria DPUT V opcode. 

LD B,A [Store it in B, 

LD A,(VAND) [Get oris '«' V opcode. 

LD (ANDPTX),A [Put it t ANDPTX. 

LD A,B {Restore ori« DPUT v op. 

LD (DPPTX),A {Put it t DPPTX. 

LD (ANDPTX+1),DE {Put oriq DPUT vector. 

LD (DPPTX+D,HL [Put orig '»' vector. 
[2nd, replace orig vectors with new data. 



LD 
LD 
LD 
LD 
LD 
LD 
LD 



A,(C3H 

<VAM»,A 

(VDPUD.A 

HL.NUVDI 

(vTNPUT+l),HL 

HL.NuVAN 

(VAJ©+1),HL 



[lC3=JP. 



[Patch into vectors. 



[3rd, Fix up BASIC pointers and jure to BASIC. 



LD 

LD 

CALL 

LD 

JP 

END 



H.SETUP 

(BASBGm.HL 

BASNEH 

BC1A18H 

BASIC 

SETUP 



{Point to SETUP. 
{Store it t BASBGN. 
{Perforn a BASIC "NEW". 
{Required for JP BASIC. 



ANDPTX aAW BAD 6C81 BADCHR 4B7F 
BASNEH IBID BCKCHk 0(EE CAPLOK 1(19 
CONTZ 6AF5 CURCHR 005F CURPOS 10A6 



BASBGN KM BASIC 1ME 
CONTl 4607 CCNT5 oBDl 
QJRSAD 1020 EX oABO 



21 



ERROR 19A2 
GETINT 2B01 
DOW 2868 
LEN 
L00P3 
LQOPKZ 6C2A 
LSPNXT 1063 
NEXT 
NOTBK 
ONE 



6BFF 
4620 



6AD9 
6B42 
6B53 



SCREEN 6CII 



TEN 



666A 



VARPTR 26BD 



EVAL 2337 

HDLSTR 1F33 

KBCHAR 002B 

LOC 4C86 

LOOM 6B8F 

LOOPH 6B56 

NATCH 6B2E 

NOFLSH 6C0C 

NWnfl ohtO 

PTR 4C8B 

SETUP 6C8B 

TEST OAF1 

WNPUT 11D4 



EXIT 6BA9 

DOE 6624 

KEYBUF 10A7 

LOOP 6AD3 

L00P5 6BC1 

LOQPU 6A99 

NATCH1 6BCA 

NORN 6B27 

KNAN1 MSI 

SCAN 6C38 

SNERR 1997 

TNERR 0AF4 

VTF 10AF 



FCERR 1E4A 

DKEY 1099 

KEYW 6C02 

LOOPl 6AEF 

LOOPK 6C05 

LOOPUZ MM 

HATCH2 6B36 

N0T13 6B9A 

NUVIN 6AM 

SCAN1 6C78 

STTONC WW 

USING M93 

HRA1 1121 



FLAG 6C83 

DfPTX 6A68 

KEYRET 6C31 

LO0P2 6B17 

LD0PK1 4CH 

LSPADR 1165 

NATCH3 6B37 

N0T91 6B83 

NWIN1 6A6B 

SCAN2 6C7C 

TEMP 6BFD 

VAND 1191 



BASIC demo program to show how TATUFNI/CMD works 
'TATUPNI UK2JK / Box 300 / Spit Jet NSH 2088 / AUSTA -vl.l-811228 
'This is i demo pat to shoy how TATUPNI perform a dynamic 
'patch on a NEHDOS TRS80 Hod3. Patch adds 2 ends to Disk 
'BASIC. Thty art! 

1. WUTb printet.fleg.USING string! variable, 
' 2. IPOS function which returns current cursor POS. 
'For (tort details, set "80 Micro" stars "EASY INPUT" Nov 81. 





1 

2 
3 
1 
5 
6 

7 ' 

8 'NOTE! This v of TATUPNI (WUTAT, backwards!) has several 

9 'enhancements over v in article. They are! 



10 

11 
12 
13 
11 
15 

14 

17 
18 
19 
20 
21 
22 
23 
21 
25 



a. TATUPNI stored at beginning of BASIC PST. 

b. Beginning of BASIC PST then adjusted to accomodate, 

c. Thus, no MENSEE reservation rewired, 

d. One v TATUPNI fits all RUN sizes (16k, 32k, 16k). 

e. Source has 2 ORGs (a= TRSDOS (1.3), b* HMOS (2.0). 

f . After invocation TATUPNI, CHD"S" is unpredictable. 

g. Arrangement of bits in FLAG improved: 

Bit Ht. Legend 

1 Permit numerals only? 

1 2 If numerals only, permit (.,-,+>? 
No return on Up-Arrw or Dwn-Arrw? 
(tax OR no chars only? 
No flashing cursor? 
Permit capitals only? 
Cursor flash speed (cf article), 



1 
8 
16 
32 
61 
128 



100 cleariioo: OS 

110 PRDfT"BEFQRE Rllcijng this pgm, be sure you have installed" 

120 PRDfT'the TATUPNI rtn, If not already done, you can now" 

130 PRTNTissue the BASIC cmd:" 

110 rTONT,"Clf) ,, ;CHR»(31);"TA'njPNI"JCHR»(31): PRINT 

150 PRDfTThen re-LOAD and RUN TATUPNI/BAS. Else <CONT>" 

140 STOP 

170 ON ERROR GOTO380 

180 CLS! PRDfP'This is a demonstration of TATUPNI, a formatted input rtn." 

190 PRINT"Hhen 'PRINT Using?' appears, enter a format string," 

200 PRDfT"Try 'PHONE (***) Mt-Mtt'." 

210 PRINT" When 'FLAG?' appears enter a Flag Value. Try '9'." 

220 PRINT" (numerals only, maximum or no chars only)." 

230 PRINT" Hhen 'PRINTS?' appears enter a print* location." 

210 PRINT'Try 'B60'." 

250 PRDfP'After entering the print! location, the input statement is" 

260 PRINT'executed. Everiment with the backspace, up and down arrows," 

270 PRDfT"and the <ENTER> key."! PRINT 

280 PA-840! A«*"«#**"! F*0 

290 PRWTe701,j: INPUT n PRINT Using"!* 

300 INPUT"Fla9"JF 

310 INPUT"PRINTe "JPA 

320 ' 

330 > 

310 DPUT«PA,F,USINGA»JB1 

350 ' 

340 ' 

370 T=0! PRINT: PRWT"M="Bs: GOTO290 

380 E<RR/2+l! IF E»100 THEN PRDfT"START"t RESUHE290 ELSE IF E«lll THEN 

PRINT"«ENDi "! RESUHE290 ELSE ON ERROR GOTO0 

INTERFACING BASIC AND TRSDOS 6 SVC ROUTINES 
by Mike Orr 

In Volume 5 Number 8 one of your readers has asked for some 
assistance in interfacing Basic and the TRSDOS 6.? (pick a version) 
SVC routines. P.G. Raeth was specifically interested in accessing 
SVC 15,1 which is the "GET" character from screen routine. Printed 
below are two sample programs that I hope will answer the 
questions that he had. 

The assembly language listing is used to create an object code 
file called VARPAS/OBJ, The BASIC program (called VARPAS/BAS) 



will load the VARPAS/OBJ when it executes. The only requirement 
is that memory size be set to FFOOH to protect the assembler 
routine, 

I have not included any detailed instructions as the programs 
are extremely simple. I might mention the one problem that P.G. 
Raeth may have been encountering. His method of setting up for the 
basic CALL seems to be causing the problem. For example! 

He had been trying to access SVC 15,1 using 
CALL M%(RPVCP%,BP%> where! 

H% - address of object code 
RP% = pointer to R% which holds screen row to read 
CP% = painter to C\ which holds screen column to read 
BP% = pointer to B% which should hold the byte located at R%,C\ 
on the screen on return from the assembler routine. 

The TRSDOS manual does not explain very clearly, but on 
execution of a CALL from BASIC, the HL, DE, and BC registers 
ALREADY point to desired bytes. In other words, by using RP%, 
CF\, and BPV P.G. Raeth has just introduced a POINTER TO A 
POINTER! If I understand him correctly he wants to pass a row and 
column coordinate to an assembler routine and return with the 
character from the screen. This can be accomplished quite simply 
with a CALL M%(R%,C%,B%) ! 

On entry to the assembler routine HL is pointing at the row 
(R%> variable, DE is pointing at the column (C%) variable and BC is 
pointing to the DUMMY (B\) variable which will contain the 
character on return from the routine. Hope this explains it a little 
better than TRICKYDOS has done in the manual. 

-Mike Orr 
449 Hamilton Avenue, Nanaimo, British Columbia V9R 4E7, CANADA 



FF01 
FF01 7E 
FF02 67 
FF03 1A 
FFI16F 
FF05C5 
FF06 3EIF 
FF08 1601 
FF0AEF 
FF0BC1 
FFOC 02 
FF0DC9 
FF01 
10000 TOTAL 

START FF01 



00001 
10002 
00003 
00001 
10005 
00006 
10007 
00008 
00009 
B0010 
00011 
00012 
00013 
00011 
00015 
00016 
00017 
01018 
00019 
00020 
00021 
00022 
00023 
00021 
00025 
00026 
00027 
10028 
00029 
10030 
LkkukS 



nimmiiiiiiiiiniiiiiiiiiiirri iiiiiiiinin 



Passing variables via the CALL instruction 
of TRSDOS 6.2 Basic. For d e monstration 
purposes only 3 variables are passed. 
Written by Hike Orr, 119 Hamilton Ave. 
Nanaimo B.C. Canada, V9R 1E7. 



Entry! 



HL=>Parameter 1 
DE=>ParameteT 2 
BC=>Parameter 3 



(Pointer to ROMSZ Screen raw) 
(Pointer to COLSZ Screen col) 
(Pointer to BYTE* Dummy ver.) 



Exit! BYTEZ holds byte at Row/Column 
No error checking for screen limits 



START 



ORG 

LD 

LD 

LD 

LD 

PUSH 

LD 

LD 

RST 

POP 

LD 

RET 

END 



IFF01H 

A,(HL) 

H,A 

A,(DE) 

L,A 

BC 

A.IFH 

B,l 

28H 

BC 

(BC),A 

START 



[get LSB row pos'n 
{put here for SVC setup 
joet LSB col pos'n 
iput here for SVC setup 
Iseve pointer to BYTE! 
iMCTL sve 
?*9rt" char function 

{pointer to BYTEZ 

Ichar toBC 

(back with char in BYTE* 



22 



1 REM TRSDOS fc-.x SVC/Basic interface demonstration 

2 REM by Mike Orr (02/18/85) 

5 SYSTEM"LOAD VARPAS/CMD" 

10 CLSJFOR X»l TO 79!PRINT CHR»(RND(26H-96>!SNEXT 

20 ROWS\«OSCOLS\*0:BYTE%=0:REM BYTE* will hold char on 

return from CALL 

25 M%«=&HFF01!REM Address of Assembler routine 

26 FOR COLS\=0 TO 79 

70 CALL MVROWSVCOLS\,BYTE\> 

75 FOR X'l TO 50O!NEXT!REM Delay loop 

80 PRINT ei200,"The character at Row "JROWSVand Column 

"!COLS\;"is";CHR*(34>;CHR$(BYTE%>SCHR*(34>i 

85 NEXT COLS% 

90 PRINT"The Row and Column counts each start at ZERO!" 

100 PRINTSPRINT 



SOFTWARE! 



Perhaps you have heard the term "expert Program". An 
"expert profiram" is a program that generally contains ail 
information necessary for competence in a given field. 
The Alternate Source is now offering the first in a new 
series of expert programs: The Algebra Program. 
The Algebra Program can be used to help you with 
homework, whether you are a student or an engineer. 
Currently an MSDOS computer with 256k is required for 
operation. 

The Algebra Program does for algebra what the hand 
calculator did for arithmetic. On your computer. The 
Algebra Program will completely automate the solving of 
algebraic and. with additional modules, trig and calculus 
problems! Simply key in the equation and out comes the 
solution, instantly, along with all intermediate steps. 
Enter your algebra expressions just as you see them in 
the book, or use computer notation. 

An example expression might look like "xyz" or "x*y*z" 
or "x * y * z". All these and other forms are acceptable. If 
you type in a problem like "10a+12a". The Algebra 
Program returns the proper answer. "22a". Perhaps you 
would like to try a more complicated problem, like 
"x**2+4x+2x**2+9x". Almost instantly, The Algebra 
Program returns the proper answer. "3x** 2+ 1 3x". The 
Algebra Program is different from hundreds of other 
math programs now available because the answers 
contain all algebraic terms. Other math programs return 
only numeric answers. The only exception is MuMath. 
but unless you know the Lisp programming language, you 
will find minimal applications for that package. 
The Algebra Program is very user-friendly and forgiving 
about syntax. With very few documented exceptions, 
problems can be entered Just as they appear in the 
textbook. With your MSDOS keyboard "PRINT- 
SCREEN" key. you can optionally route the step-by-step 
detailed algebraic solutions to the printer. The Algebra 
Program contains "core" information and is a 
requirement for all additional modules in this series 
(most additional modules will be under $50). Coming up: 
The Trig Program and The Deriative Program. Versions 
will soon be available in French. German and Spanish, 
too. 

The Algebra Program is $99.95 and includes simple 
documentation. The program was designed so that 
beginning algebra students can start using the program 
within minutes. Can you think of a cheaper way to 
provide your kid with an "expert" Algebra tutor for an 
unlimited number of hours? 

********** 



Programmers. BAS34 will convert your Model (/III 
BASIC Programs to a more generic form of BASIC which 
may be used with a wide variety of other operating 
systems. There are now five versions of this package 
available: TRSDOS 6.x. Model l/HI. CP/M. MSDOS 
(general) and MSDOS (2000). Please specify which 
version you desire when you place your order. Certain 
modifications are specifically to translate code to a 
format used with systems other than TRSDOS 6.x. 

We believe Dennis Allen's BAS34 utilities to be the most 
powerful translation packages on the market at this time, 
(f you are a registered owner and would (ike to receive an 
update to the new version of BAS34, the price is $ 1 for 
both a new disk and the new manual. The new price of the 
package is $49.95. Be sure to specify which operating 

system you wish the program to run under. 

********** 

UNIKEV is a machine language program for use on the 
Radio Shack Model 4 using TRSDOS 6.x. (t is used In 
conjunction with BASIC to Permit single key entry of 85 
key words and Phrases, (n addition. UNIKEV offers three 
"programmable" key combinations, each of which can be 
assigned by the user. When installing UNIKEY. the user 
has the option of including a HELP screen that quickly 
shows the key combinations to produce any of the 
UNIKEV substitutions. A /JCL file is included on the 
master disk for easy installation of UNIKEV. UNIKEV. 
the Keystroke Saver, is only $19.95. complete with a 

simple 10-page manual. 

********** 

MACRO TYPING is a typing practice program featuring 
high speed video action and sound. The term "macro" 
simply means "large". With MACRO TYPING you may 
practice typing with characters that are many times 
normal size. This is very valuable if someone in your 
family is visually impared. 

MACRO TYPING is excellent for all skill levels. Difficulty 
is determined by the practice text. Practice text from 
simple upper case alphabet to "real" text containing 
upper and lower case letters and punctuation is included 
on the program disk. Text generating utilities are also 
included. The program has been tested at speeds over 
1 00 words per minute, so you're not likely to outgrow it. 
A frequently updated "speedometer" tells how many 
words per minute you are typing. Versions are included 
for Models l/III and 4 in the native modes. MACRO 
TYPING is only $29.95 and includes documentation, the 
TVPE/CMD program, lots of sample practice text and 
two sample programs for generating more sample text. 



Order from: 

The Alternate Source Information Outlet 

704 North Pennsylvania Avenue 

Lansing, MI 48906 
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GOING ONLINE? 



Want a FREE terminal package? Not just ANV 
terminal package. One of the best available for the 
TRS-80 Model 4! READ ON! 

LTERM started out as a small dumb terminal 
program intended for personal use with Bulletin 
Board Systems (BBS), (t was soon realized that 
more advanced features were required to 
communicate with the outside world. Several 
versions of LTERM were developed for the TRS-80 
Models I and III and have found their way into Public 
BBS systems all over the country. LTERM IV marks 
the latest version of this Popular terminal program 
with several new features not found on other more 
expensive programs or in earlier versions of 
LTERM. 

LTERM takes special advantage of many of the 
Model 4 advanced features, such as the function 
keys, reverse video, the extra bank of memory (if 
you have if installed) and more. LTERM supports 
AUTOLOGON. TRUE BREAK (required by some 
computers) and custom CONVERSION TABLES 
(INCOMING. OUTGOING and a PRINTER table) that 
may optionally be saved on disk. Display and EDIT 
the transmit/receive buffer in both ASCII and 
HEXADECIMAL (HEX) modes, automatic FILE 
OPTIONS. CR/LF GROUPING, custom VIDEO 
FILTERS. ECHO/FEEDBACK TOGGLE. LOGON 
STRING OUTPUT (for BBS systems that don't 
support auto logon) and MACRO-STRINGS are also 



supported. The main BUFFER may be transmitted 
using either "prompted" line output or using 
standard XON/XOFF Protocol. PRINTER OPTIONS 
are available to route text to your line printer. All 
RS-232 options are within easy control of the user. 
Type directly into the buffer for "quick and dirty" 
messages. The main buffer is 65534 bytes in a 1 28k 
machine and over 33.000 bytes in a 64k machine. 
Files may be transmitted using the DIRECT FILE 
TRANSFER "MODEM" Protocol. DOS 
COMMANDS may be executed without leaving the 
LTERM program and, of course, there's even 
more! Online HELP is available simply by Pressing 
[F3]. 

So. how do you get this nifty package without paying 
the $49.95 list price? Simple! Just order a 1200 
Password modem from The Alternate Source and 
mention this ad! The Password is Hayes 
compatible, completely programmable, auto- 
answer and auto-dial and a fantastic bargain at only 
$299. Place your order TODAV and receive 
LTERM for your Model 4 absolutely FREE. All 
cables included! Phone (5 1 7) 482-8270 for fastest 
response, or mail order from The Alternate Source 
Information Outlet. 704 North Pennsylvania 
Avenue, Lansing, MI, 48906. Just to make sure you 
get the best deal around, we'll pay shipping on this 
and any products ordered with this offer. As 
always, a copy of Northern Bytes will be included 
absolutely FREE! 
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